Code I produced while learning Haskell.