My code from http://learnyouahaskell.com/chapters