print!/\+/?$a*=/\//?.5:$a:++$a,$/until$_=getc,/q/