; type in native dialect
(deftype string {length integer
                 buf (ptr byte)})

(Lambda open-file
  {read boolean
   file-descriptor integer}
  (let [flags (lshift read 3)]
    (syscall! 93 file-descriptor flags)))