unit u2; uses u3 in '..\u3'; type r1 = u3.r1; end.