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