1
#!stx --script
2
"/
3
"/ a word count script
4
5
|wc|
6
7
wc := 0.
8
[Stdin atEnd] whileFalse:[
9
wc := wc + Stdin nextLine asCollectionOfWords size.
10
].
11
wc printCR.