RosettaCodeData/Task/Singly-linked-list-Element-insertion/Forth/singly-linked-list-element-insertion-3.fth

 : chain ( a b -- )   2dup  @ swap !  ! ;