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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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