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