ivg

open Lwt

let block_size = 256 * 4096
let ifd = Lwt_unix.stdin
let ofd = Lwt_unix.stdout

let print spd =
  try_lwt
    Lwt_io.eprintf "%s\r" (Speed.to_string spd)
  with Speed.Undefined -> return_unit