CONST val  = 0,
      next = 2;

*ListPtrC = (*4);
ListPtrC^.val  = 3;
ListPtrC^.next = 0;

*ListPtrB = (*4);
ListPtrB^.val  = 2;
ListPtrB^.next = ListPtrC;

*ListPtrA = (*4);
ListPtrA^.val  = 1;
ListPtrA^.next = ListPtrB;

*L = 0; *char = 0;
for L = ListPtrA link next
{
  print str(L^.val), EoL
};
FIN