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