SHARE
TWEET

Untitled

a guest Jul 17th, 2017 55 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Unix.openfile "foobar" ~mode:[`Creat;`Rdwr]
  2. >>= fun fd ->
  3. let wr = Writer.create fd in
  4. Writer.write wr "this is a test";
  5. Unix.close fd
  6. >>= fun () ->
  7. exit 0
  8.    
  9. Unix.close fd
  10. >>= fun () ->
  11. exit 0
RAW Paste Data
Top