blob: ab53923cd6d7ff0365cf16e25691633bdbf14141 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
( : variable create 0 , ; )
( : create here const ; )
: . 0 sys ;
: over 1 pick ;
: -rot rot rot ;
: nip swap drop ;
: tuck swap over ;
: 1+ 1 + ;
: 1- 1 - ;
: 0= 0 = ;
: >= < 0= ;
|