RosettaCodeData/Task/Singly-linked-list-Element-insertion/Factor/singly-linked-list-element-insertion.factor

: list-append ( previous new -- )
    [ swap next>> >>next drop ] [ >>next drop ] 2bi ;

SYMBOLS: A B C ;

A <linked-list>
[ C <linked-list> list-append ] keep
[ B <linked-list> list-append ] keep
.