Random Haskell code fragments