OberonCore

         n := 0;
         WHILE (c # NIL) & (n < 1) DO
            WITH c: Stores.AlienPiece DO
               Indent(form, level); form.WriteInt(c.len); form.WriteString(" bytes data"); form.WriteLn
            | c: Stores.AlienPart DO
               IF c.store # NIL THEN
                  Out(form, level, c.store)
               ELSE Indent(form, level); form.WriteString("NIL reference"); form.WriteLn
               END
            END;
            c := c.next;
            INC(n)
         END;