(fn read-file [file]
  (with-open [f (io.open file "r")]
   (f:read :*all)))

{: read-file}