unit ub0342a;
interface
procedure p(d:longword);
implementation
uses
  ub0342b;
procedure p(d:longword);
begin
end;
end.