Haskell home work for the work fp group.