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