samples/variables.sample


1
2
3
4
5
6
7
8
9
10
11
12
13

-- store foo = 10
10 $foo !

-- load and print foo
$foo ?

-- print 1 + value at foo
1 $foo @ + .

-- define x * 2 = x + x
define *2       dup + ;

666 *2 .