[Haskell-beginners] exercise 3.10 in YAHT