9 # (ok, c, f) = freadc f
13 split :: [Char] [Char] -> [[Char]]
15 split c [] = [reverse c]
16 split c ['\n':rest] = [reverse c:split [] rest]
17 split c [r:rest] = split [r:c] rest
21 # l = map (nub o map length o group o sort)
26 ns n l = sum [1\\x<-l|isMember n x]