added first part of graph in Haskell