RosettaCodeData/Task/Memory-allocation/ALGOL-68/memory-allocation-3.alg

REF MYSTRUCT h = HEAP MYSTRUCT;