with System;
with Language;

procedure Test
is
 use System;
 use Language;
begin
   null;
end;