(print "FS API:")
(runtime-debug (print (fs/exists? (car *args*))))
(runtime-debug (print (fs/file? (car *args*))))
(runtime-debug (print (fs/directory? (car *args*))))
(runtime-debug (print (fs/read-to-string (car *args*))))
(runtime-debug (print (fs/home-directory)))

(print "Stream API:")

(print (+ (car *args*) ":"))
(setq handle (stream/open (car *args*)))

(loop
  (let (data (stream/read handle))
    (if data
      (stream/write stream/stdout data)
      (break)
      )
    )
  )
(stream/close handle)
