{ %FAIL }

procedure p(const primo,primo:longint);
begin
end;

begin
end.