nl = 0
nw = 0
nc = 0
DO UNTIL LINES() = 0
    PARSE LINEIN L
    nw = nw + WORDS(L)
    nc = nc + LENGTH(L) + 1
    nl = nl + 1
END
nc = nc - 1
nl = nl - 1
SAY nl nw nc