wc.spt

       &anchor = 1
       char = len(1) . ch
       white = span(' 	')
       word = break(' 	') white

       count = table(100)
loop   line = input        :f(stat)
       lc = lc + 1

       copy = line ' '
       copy white =
skip   copy word =         :f(nchar)
       wc = wc + 1         :(skip)

nchar  line char =         :f(loop)
       ch notany(' 	')     :f(nchar)
       chc = chc + 1
       count<ch> = count<ch> + 1
       n = count<ch>
       max = lt(max,n) n   :f(nchar)
       maxch = ch          :(nchar)
                           :(loop)
stat
       output = 'Line count: ' lc
       output = 'Max char: ' maxch ', occured ' max
       output = 'Word count: ' wc
       output = 'Avg ws: ' (((chc * 10) / wc) / 10.)
end