DEFINITION Queue;

    IMPORT Boxes;

    TYPE
        Queue = POINTER TO RECORD
            (q: Queue) IsEmpty (): BOOLEAN, NEW;
            (q: Queue) Pop (): Boxes.Object, NEW;
            (q: Queue) Push (o: Boxes.Object), NEW
        END;

    PROCEDURE NewQueue (cap: LONGINT): Queue;

END Queue.