RosettaCodeData/Task/File-input-output/SNOBOL4/file-input-output.sno

        input(.input,5,,'input.txt')
        output(.output,6,,'output.txt')
while   output = input                   :s(while)
end