let size_compare_unit sz1 sz2 =
  let value_unit sz = 
    match sz with
      TB _ -> 4
    | GB _ -> 3
    | MB _ -> 2
    | KB _ -> 1
    |  B _ -> 0
  in
  (value_unit sz1) - (value_unit sz2)