001 in haskell