while {[gets stdin s]>0} {puts [expr [string map ,\ * $s]]}