Terrible haskell for 1