set i 21 while {[incr i -1]>0} {puts [expr [regexp -all \\* [read stdin 451]]/5]}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page