Its my first haskell module, so any comments on how to improve it would be greatly appreciated :)