Verify the size of a file called     input.txt     for a file in the current working directory, and another one in the file system root.




: .filesize ( addr len -- ) 2dup type ."  is "
  r/o open-file throw
  dup file-size throw  <# #s #> type ."  bytes long." cr
  close-file throw ;
 
 s" input.txt" .filesize
s" /input.txt" .filesize