[Haskell-cafe] Exercise in YAHT