JezK
Edit File: tcl
proc cross_sum {s} {expr [join [split $s ""] +]}