(while:prn:+""(n-of(abs:= r readline x(r)s(coerce(r)'cons)n(read))(if(< n 0)rev.s s)))