get (bad) haskell working