\ 2nip ( w1 w2 w3 w4 -- w3 w4 ) gforth two_nip : 2nip 2swap 2drop ;