print/-/?'+'x$':$&x$_,'.'while$b-=$_=$b-ord getc