anarchy golf - the source code

stable partition by pooq

do
v=peek(0)
if v<0?z$
p=p+v*!p
x$=chr$(v)
if p>v?x$;
if p=v z$=x$+z$
if p<v z$=z$+x$
loop

Note that non-ascii characters in the above source code will be escaped (such as \x9f).