with F000001;
with F000002;
procedure Style is
begin
    F000001;
    F000002;
end Style;