Haskell code that sucks. Don't look at it!