print/q/?&a:/\+/?++$i:($i*=/\//?.5:$i),"\n"for<>=~m/./g