2 lines
49 B
Text
2 lines
49 B
Text
|
proc cross_sum {s} {expr [join [split $s ""] +]}
|