Quartus

require lists.fs

: add-node ( node list -- )  tuck @  swap cons  swap ! ;

: copy-list ( list1 list2 -- )
  >r  @ begin dup while  dup car r@ add-node  cdr repeat  drop r> drop ;

: .list ( list -- )  @ begin dup while  dup car .  cdr repeat drop ;

linked-list constant list1
linked-list constant list2

5 list1 add-node
6 list1 add-node
7 list1 add-node

.( List1: )
list1 .list cr

list1 list2 copy-list

.( List2: )
list2 .list cr