My solutions for Beginning Haskell (apress)