RosettaCodeData/Task/Reverse-a-string/Haskell/reverse-a-string-3.hs

import Data.Char (isMark)
import Data.List (groupBy)
myReverse = concat . reverse . groupBy (const isMark)