[Haskell-cafe] writing graphs with do-notation