program test (output);

type bigfuk = ^integer;
     fuk = record case boolean of true : (ptr : bigfuk);
                                 false : (int : integer)
           end;

var frei,x : integer;
    fik : fuk;

begin
  fik.int := &62E;
    writeln (~fik.ptr^);
  frei := free;
  writeln (~frei);
  x := claim (frei DIV 2);
  writeln ('Got area');
    writeln (~fik.ptr^);
  release (x, frei DIV 2);
  writeln ('Rel. area');
    writeln (~fik.ptr^);
  x := claim ((frei*3) DIV 4);
    writeln (~fik.ptr^)
end.