(.* [# chars] file >                             (.* [# lines] file >
    (say char -                                      (say line -
        (# char-in file .char)                           (# line-in file .line)
    )                                                )
)                                                )
