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