let
graph_attributes =
fun
_
->
[
`
Rankdir
`
LeftToRight
]