// summarize counts

\l read

t:,(-20$"script"),,/8$`words`"?words"`chars`lines
t,:,(20+4*8)#"-"
t,:,/',/{:[".k"~-2#x;,(,-20$3_*0:x),8$c 1_,/"\n",'d@&~{(&/x _lin"\t ")|"/"=*x}'d:0:x;()]}'!"."
`0:t
"summary.txt"0:t