@processor @ewe ; @ewe @ewe.done { }

@processor @ewe ;
@ewe @ewe.become ; @ewe.stack $processor {
    @processor @ewe ; 
    @processor switch to $processor ;
}

@processor @ewe ; 
@ewe @ewe.dup ; @ewe.stack $ {
    @processor @ewe ;
    @ewe.stack ( $ $ ) ;
}

@processor @ewe ; 
@ewe @ewe.swap ; @ewe.stack ( $x $y ) {
    @processor @ewe ;
    @ewe.stack ( $y $x ) ;
}

@processor @ewe ; 
@ewe @ewe.drop ; @ewe.stack ( $x ) {
    @processor @ewe ;
}

@processor @ewe ; 
@ewe @ewe.nip ; @ewe.stack ( $ $x ) {
    @processor @ewe ;
    @ewe.stack $x ;
}

@processor @ewe ; 
@ewe @ewe.call ; @ewe.stack $fn { 
    @processor @ewe ;
    @ewe def $fn ;
}

@processor @ewe ; 
@ewe @ewe.if ; @ewe.stack ( $true $ true ) {
    @processor @ewe ;
    @ewe def $true ;
}

@processor @ewe ; 
@ewe @ewe.if ; @ewe.stack ( $ $false false ) {
    @processor @ewe ;
    @ewe def $false ;
}

@processor @ewe ; 
@ewe @ewe.lt ; @ewe.stack ~( $x $y ) {
    @processor @ewe ;
    @ewe.stack $z ; @code [$z = tostring(tonumber($x) < tonumber($y))] ;
}

@processor @ewe ; 
@ewe @ewe.eq ; @ewe.stack ~( $x $y ) {
    @processor @ewe ;
    @ewe.stack $z ; @code [$z = tostring(tonumber($x) == tonumber($y))] ;
}

@processor @ewe ; 
@ewe @ewe.gt ; @ewe.stack ~( $x $y ) {
    @processor @ewe ;
    @ewe.stack $z ; @code [$z = tostring(tonumber($x) > tonumber($y))] ;
}

@processor @ewe ; @ewe @ewe.and ; @ewe.stack ( true ture ) {
    @processor @ewe ;
    @ewe.stack true ; 
}
@processor @ewe ; @ewe @ewe.and ; @ewe.stack ( $1 $2 ) { @ewe.stack false ; }

@processor @ewe ; @ewe @ewe.or ; @ewe.stack ( true $ ) { @ewe.stack true ; }
@processor @ewe ; @ewe @ewe.or ; @ewe.stack ( $ true ) { @ewe.stack true ; }
@processor @ewe ; @ewe @ewe.or ; @ewe.stack ( $ $ ) { @ewe.stack false ; }

@processor @ewe ; @ewe @ewe.not ; @ewe.stack true { @ewe.stack false ; }
@processor @ewe ; @ewe @ewe.not ; @ewe.stack false { @ewe.stack true ; }

@processor @ewe ; 
@ewe @ewe.sub ; @ewe.stack ~( $x $y ) {
    @processor @ewe ;
    @ewe.stack $z ; @code [$z = tostring($x - $y)] ;
}

@processor @ewe ; 
@ewe @ewe.add ; @ewe.stack ~( $x $y ) {
    @processor @ewe ;
    @ewe.stack $z ; @code [$z = tostring($x + $y)] ;
}

@processor @ewe ; 
@ewe @ewe.div ; @ewe.stack ~( $x $y ) {
    @processor @ewe ;
    @ewe.stack $z ; @code [$z = tostring($x / $y)] ;
}

@processor @ewe ; 
@ewe @ewe.mod ; @ewe.stack ~( $x $y ) {
    @processor @ewe ;
    @ewe.stack $z ; @code [$z = tostring($x % $y)] ;
}

@processor @ewe ; 
@ewe @ewe.mul ; @ewe.stack ~( $x $y ) {
    @processor @ewe ;
    @ewe.stack $z ; @code [$z = tostring($x * $y)] ;
}

@processor @ewe ; 
@ewe @ewe.pop ; @ewe.stack $name {
    @processor @ewe ;
    @ewe pop $name ;
}

@processor @ewe ; 
@ewe @ewe.push ; @ewe.stack $name {
    @processor @ewe ;
    @ewe push $name ;
}

@processor @ewe ; 
@ewe @ewe.peek ; @ewe.stack $name {
    @processor @ewe ;
    @ewe peek $name ;
}

@processor @ewe ; 
@ewe ( $x ) {
    @processor @ewe ;
    @ewe.stack $x ; 
}

@processor @ ; @ ewe push $id { 
    @processor @ ;
    @ewe $id ; 
}