let size_convert_down sz =
  match sz with
    TB f -> GB (f *. 1024.0)
  | GB f -> MB (f *. 1024.0)
  | MB f -> KB (f *. 1024.0)
  | KB f -> B  (f *. 1024.0)
  | B  f -> B f