[Haskell-beginners] Critique my program