A Haskell one Liner