1module main; 2from imptypes import RT; 3import imported; 4type 5 RT = pointer to record 6 i, j : integer; 7 end; 8var 9 p : imported.T; 10 q : imported.OT; 11 r : RT; 12begin 13 new(r); 14 r^.i := 3; 15 r^.j := 4; 16 imported.Blah; 17end main. 18