4.3BSD/usr/contrib/apl/lib/fn/readargs

readargs;i;p;st
i{1
L { st { L'
next: }(0=Rst)/0
p { (1Ust)I' '
BJ'arg',(1UNJi), '{ ''',1Ust[Ip],''''
st {pUst
i { i+1
}next