command c(s1, ..., sk, o1, ..., ok) if r1 in A[s1, o1] and r2 in A[s2, o2] and ... rm in A[sm, om] then op1; op2; ...; opn; end.
command create_file(p, f) create object f; enter Own into A[p, f] enter Read into A[p, f] enter Write into A[p, f] end.
command grant_read(p, q, f) if Own in A[p, f] then enter Read into A[q, f] end.
Department of Computer Science
University of California at Davis
Davis, CA 95616-8562