type node struct {
    int value;
    ptr to node next;
};
var ptr to node jim;
var ptr to node harry;
var ptr to node bertie;
var ptr to node albert;
var int i;
{
    albert = malloc node;
    jim = albert;
    harry = jim;
    i = 100;
    while i {
        harry = malloc node;
        if valid jim {
            [@jim].value = i;
        }
        if (i = 87) {
            bertie = jim;
        }
        if valid jim {
            [@jim].next = harry;
            if valid harry {
                jim = harry;
            }
        }
        i = (i - 1);
    }
    free bertie;
    jim = albert;
    while valid jim {
        if valid jim {
            print [@jim].value;
            jim = [@jim].next;
        }
    }
}