/_s 0 def/_o[>>def/_a[>>def/pyon{/_s _s 1 add store dup type/nametype
eq{dup xcheck{load}if}{dup type/stringtype eq{token{_o exch _s exch
put _a _s[>>put 0 exch{token{_a _s get exch 3 index exch put exch 1
add exch}{pop exit}ifelse}loop 0 1 _a _s get length 1 sub{_a _s get
exch get pyon}for _o _s get pyon}if exec}if}ifelse _o _s undef/_s _s
1 sub store}bind odef[>>begin userdict/ARGUMENTS .knownget{/_ exch
def _ length 0 gt{_{/_p exch(r)file def{_p token{pyon}{exit}ifelse}loop
_p closefile}forall}if}{_i}ifelse