# Tcl 8.5 has no lmap, so we use foreach instead. interp alias {} lmap {} foreach lmap o\ b [lassign [gets stdin] a] {set a [expr $a$o$b]};puts $a