[ "R" file.open
  dup 0 <> [ dup file.size . file.close ] ifTrue
  drop
] is display-size

" input.txt"  display-size
" /input.txt" display-size