s=[i=0]
"$System.in ".each{it<'!'?println(p):[e=it-')'?it:"(${s[i-=3]} $p)",p=s[i++]=e]}