haskell_homework