10 # (ok, c, f) = freadc f
14 split :: [Char] [Char] -> [[Char]]
16 split c [] = [reverse c]
17 split c ['\n':rest] = [reverse c:split [] rest]
18 split c [r:rest] = split [r:c] rest
22 # l = map (nub o map length o group o sort)
27 ns n l = sum [1\\x<-l|isMember n x]