let default_vertex_attributes = fun _ -> [`Shape `Box]