2 part forth

[54 デフォルトの名無しさん NG NG]

話題少ないし、おまいら、クイズで楽しみませんか？

第1問

dup ( a -- a a )
swap ( a b -- b a )
drop ( a -- )
>r ( a -- return stack: a )
r> ( return stack: a -- a )

以上5つのワードだけで、

2dup ( a b -- a b a b )

を定義すれ。