/* rexx */
address syscall 'realpath rx2 pa'
say 'realpaht rx2 =' pa
say 'reading stdin'
address syscall 'read 0 line 20'
say 'retVal' retVal 'line' line
address syscall 'readfile //wk.clist inp.'
say 'syscall readfile rc' rc 'retval' retval 'errno' errno
say inp.0 '1='inp.1
y = inp.0
say inp.0 y'='inp.y
exit