[RWHaskell p69] Ex 1-8