s" a"0 open-file 0= [if] slurp-fid type [then]
stdin slurp-fid s" a"4 create-file + write-file