Code for today's Haskell lecture