{ %FAIL }

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

begin
end.