006 in haskell