An experiment/practice in Haskell.