open Mirage

let () =
  let main = foreign "Write.Main" (console @-> block @-> job) in
  let img =
    match get_mode () with
    | `Xen -> failwith "Unsupported"
    | `MacOSX -> failwith "Unsupported"
    | `Unix -> block_of_file "disk.img"
  in
  register "Write.Main" [ main $ default_console $ img ]