module GroupKeyword where
a = map head $ group $ sort [1 .. 100]