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)