wordcnt = map (liftM2 (,) head length) . group . sort . words


한줄로 가능