RosettaCodeData/Task/File-size/Retro/file-size-3.retro

with files'
: getFileSize ( $-n )
  :R open 0 over =
  [ "File does Not Exist\n" puts ]
  [ &size sip close drop ] if ;

"input.txt" getFileSize putn
"/input.txt" getFileSize putn