{ %version=1.1 }

uses ub0380;
procedure p1(s:string);overload;
begin
end;

begin
  p1(1);
end.