* 4DUP ( a b c d -- a b c d a b c d ) simulate: : 4DUP 4 PICK 4 PICK 4 PICK 4 PICK ;
4DUP
( a b c d -- a b c d a b c d )
simulate: : 4DUP 4 PICK 4 PICK 4 PICK 4 PICK ;
FORTH/BASE forth_usual ordinary primitive