Rewrite virt-resize in OCaml.