type

  p=^p;
  p2 = ^p2;

  var a:p;
      a2:p2;

  begin
  	a:=a2;
        a:=a2^;
  end.