proc cross_sum {s} {expr [join [split $s ""] +]}