proc cross_sum {s} {expr [join [split $s “”] +]}
[Validate]
Generated with the Darkfish Rdoc Generator 2.