(while(readline)(prn:+""(n-of(abs:= s(drain(readc)(" "0))n(read))(if(< n 0)rev.s s))))