#define I(x,y)if#x=c then n:=max(0,(n y)*ord(n y<>256)); var n:comp;c:char;begin repeat read(c);I(i,+1)I(d,-1)I(s,*n)if c="o"then writeln(n)until 1=0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page