gets
0while$_.gsub! /.*\d\b(?!\))/,'(\0)'
p eval$_.tr "*+","+*"