create or replace procedure grant_table(p_table in varchar2, p_privilege in varchar2, p_to_user in varchar2, p_grantoption in boolean)
authid current_user
is
begin
  execute immediate 'grant ' || p_privilege || ' on ' || p_table || ' to ' || p_to_user || case when p_grantoption then ' with grant option' else '' end;
end grant_table;