let alive = ref true

  let close () =
    alive := false;
    handle_unix  close disk