Redo 002 in Haskell