RosettaCodeData/Task/Increment-a-numerical-string/Tcl/increment-a-numerical-string-6.tcl

puts stdout "$j * $n = [expr $j * $n]"