while {[gets stdin e]>0} {set n {}
foreach m [regexp -all -inline .?\\d+ $e] {set n [expr $n$m]}
puts "[regsub -all \\D $e { \0 }] = $n"}