four-dup:forth_usual — ordinary primitive
FORTH
4DUP ( a b c d -- a b c d a b c d )(
)
simulate: : 4DUP 4 PICK 4 PICK 4 PICK 4 PICK ;