Forth Wizard 060903,
Peter Sovietov
dup
drop
swap
over
rot
>r
r>
2dup
2drop
2swap
2over
2rot
nip
tuck
-rot
r@
2>r
2r>
2r@
(
--
)