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)