Using the syntax in section 2.3, write a command delete_all_rights (p, q, s). this command causes p to delete all rights the subject q has over an object s.

command delete_all_rights(p, q, s)
delete read from a[q, s];
delete write from a[q, s];
delete execute from a[q, s];
delete append from a[q, s];
delete list from a[q, s];
delete modify from a[q, s];
delete own from a[q, s];
end