Test case : Type "file" using Forth

  
: .file ( c-addr u -- ) \ use like  cr s" foo.txt" .file
  r/o bin open-file throw ( -- handle ) >R
  pad dup unused R@ read-file throw ( addr u -- ) type
  R> close-file throw ;