totalLength : List String -> Nat
totalLength xs = sum (map length xs)