8 lines
152 B
Plaintext
8 lines
152 B
Plaintext
|
define (: ?x ?y ;) (define ?x ?y)
|
||
|
|
: (?x dup) (?x ?x) ;
|
||
|
|
: (?x ?y swap) (?y ?x) ;
|
||
|
|
: (?x drop) () ;
|
||
|
|
: (?x ?y p*) (?x * ?y) ;
|
||
|
|
: square (dup p*) ;
|
||
|
|
|
||
|
|
10 square
|