my homework of haskell