with files'
"input.txt" :R open over 0 <> [ &size sip close drop ] ifTrue