One of my first programs in Haskell.