|:push: :: $x|
    :: push $x
|:push:|

|:set: :: $name :data: $value|
    :: set $name $value
|:set: :: $name|
    :error: stack underflow

|:get: :: $name|
    :: get $name

|:: push $n|
    :data: $n

|:: duplicate :data: $n|
    :data: $n
    :data: $n
|:: duplicate|
    :error: stack underflow

|:: drop :data: $n|
|:: drop|
    :error: stack underflow

|:: swap :swap: $x :data: $y|
    :data: $y
    :data: $x
|:: swap :swap: $x|
    :error: stack underflow
|:: swap? :data: $x|
    :swap: $x

|:compare: :@math: $x|
    :data: $x
|:compare: $x :data: $y|
    :compare:
    :@math: compare $y $x

|:: greater :data: less   | :data: false
|:: greater :data: equal  | :data: false
|:: greater :data: greater| :data: true
|:: greater? :data: $x|
    :compare: $x

|:: abs :@math: less|
    ::(# -1 *)
|:: abs :@math: $x|
|:: abs? :data: $x?|
    :@math: compare $x 0

|:: math $op :@math: $n|
    :data: $n
|:: math $op? :@math: $op $x :data: $y|
    :@math: $op $y $x
|:: math $op :@math: $op $x|
    :error: stack underflow
|:: math $op? :data: $x|
    :@math: $op $x
|:: math $op|
    :error: stack underflow

|:: print :data: $x|
    :@stdio: print $x
|:: print|
    :error: stack underflow

|:reset variables:? :checked variables: $x $y|
    :variables: $x $y
|:reset variables:|

|:: set $x $y :variables: $x $|
    :variables: $x $y
    :reset variables:
|:: set $x $y? :variables: $v $|
    :checked variables: $v $
    :reset variables:
|:: set $x $y|
    :variables: $x $y

|:: get $x :variables: $x $y?|
    :data: $y
    :reset variables:
|:: get $x :variables: $v $|
    :checked variables: $v $
    :reset variables:
|:: get $x|
    :error: $x not found

|:: set     | :set:
|:: get     | :get:
|:: add     | :: math add
|:: subtract| :: math subtract
|:: multiply| :: math multiply
|:: divide  | :: math divide
|:: modulo  | :: math modulo
|:: and     | :: math and
|:: dup     | :: duplicate

|:: +| :: add
|:: -| :: subtract
|:: *| :: multiply
|:: /| :: divide
|:: %| :: modulo
|:: &| :: and
|:: >| :: greater

|:: #| :push: