Haskell 066 work