{ %version=1.1 }
{ %recompile }

uses ub0461;

procedure p;
begin
  p1;
end;

begin
  p;
end.