Work function call in Haskell. (but it looks like no longer haskell)