~~~
:0=; n:zero? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
:<   lt? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
:>   gt? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
:<>  -eq? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
:if; [ as{ 'popopodr i 'drdrre.. i }as ] if ;
:?;  dup [ as{ 'popopodr i 'drdrre.. i }as ] if drop ;
~~~