order :: String -> String
order = fmap head . sortBy hashLetterCompare . groupWith id
order :: String -> String
order = fmap head . sortBy hashLetterCompare . groupWith id
order = fmap head . sortBy hashLetterCompare . groupWith id