program test (output);

type fred = ^integer;

var space : array [0..255] of char;
    pint,plop : fred;

begin
  new (pint);
  new (plop);
  dispose (pint);
  plop^ := 42;
  pint := plop;
  writeln (pint^)
end.