  TYPE
    oct$olg_working_heap = HEAP ( * );

