BEGIN PROC (REF FILE, REF [][][] CHAR)VOID associate= SKIP ; (STRING s) INT: (LOC FILE f; LOC [LWB(s):UPB(s)] CHAR t:=s; associate(f,t) ; LOC INT n; get(f,n); n ) END