scan [read stdin] %d:%d:%d n m r while \$n {puts $m set m [expr $m+$m*$r/100] incr n -1}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page