TYPE knoten = RECORD nach: liste;
CASE ka: (A, L) OF
A: wert: atom; |
L: vws: liste;
END;
END;
Damit kann die rekursive Liste ( a ( b c ) d ) jetzt als Geflecht
dargestellt werden: