"type zero or more words on one or more lines, end with <ret><eof>:\n" @
itos(length (choplist takeword (" "@input)) - 1)
@ " words.\n"

--\fB Count Words on Standard Input. \fP