5 lines
126 B
Forth
5 lines
126 B
Forth
: v. swap . . ;
|
|
: v* swap over * >r * r> ;
|
|
: v/ swap over / >r / r> ;
|
|
: v+ >r swap >r + r> r> + ;
|
|
: v- >r swap >r - r> r> - ;
|