added an example from the meta haskell examples by Geoffrey Mainland