foreach l [read stdin] {puts [expr ([join [split $l *] )*(])]}