4 import qualified Data.Foldable
8 read :: *File -> [Char]
10 # (ok, l, f) = freadc f
16 # ls = toString (read io)
17 = (both union ls, both intersect ls)
19 both :: ([Char] -> [Char] -> [Char]) -> (String -> Int)
20 both f = sum o map (length o 'Data.Foldable'.foldl1 f o map fromString o split "\n" o trim) o split "\n\n"