1program x(output);
2var
3	x: ^ integer;
4	y: ^ integer;
5begin
6	new(y);
7	x := y;
8	x^ := 1;
9	x := x;
10end.
11