Tiny bit of code used in an early November 2014 live Haskell coding demo.