More screwing around with haskell.