RosettaCodeData/Task/Doubly-linked-list-Element-insertion/Oforth/doubly-linked-list-element-insertion.fth

: test      // ( -- aDList )
| dl |
   DList new ->dl
   dl insertFront("A")
   dl insertBack("B")
   dl head insertAfter(DNode new("C", null , null))
   dl ;