compile/com typere.sai(h),newlin.sai(h),inteof.sai(h),realeo.sai(h),streof.sai(h)↔
compile/com strin.sai(h),tinit.sai(h),iopkg.sai(h),defau.sai(h)↔
compile/com split.sai(h),fileex.sai(h),filscn.sai(h),eoftru.fai(h)↔
compile/com lowerc.sai(h),upperc.sai(h),trim.sai(h),relall.sai(h)↔
compile/com ceil.sai(h),getppn.sai(h),dates.sai(h),readca.sai(h)↔
; compile/com devchr.sai(h),magutl.sai(h)↔
r fudge2↔
'A=typere,readca,newlin,inteof,realeo,streof,strin,tinit,iopkg/a≠
'A='A,defau,split,fileex,filscn,heoftru,lowerc,upperc,trim,relall/a≠
'A='A,ceil,getppn,dates/a≠
TTY:='A/l↔
λ
; magutl,devchr/a↔
delete newlin.rel,inteof.rel,realeo.rel,streof.rel↔
delete strin.rel,tinit.rel,iopkg.rel,defau.rel,split.rel,fileex.rel↔
delete filscn.rel,heoftru.rel↔
delete lowerc.rel,upperc.rel,trim.rel,relall.rel↔
delete ceil.rel,getppn.rel,dates.rel,readca.rel,typere.rel↔
; delete devchr.rel,magutl.rel↔