bytesToUnittedStr :: Word64 -> String
bytesToUnittedStr x
  | x < bk_brk = show x ++ "b"
  | x < km_brk = showHundredthsDiv x k ++ "k"
  | x < mg_brk = showHundredthsDiv x m ++ "m"
  | otherwise  = showHundredthsDiv x g ++ "g"
 where
  bk_brk = 4096
  km_brk = 768 * k
  mg_brk = 768 * m
  --
  k      = 1024
  m      = 1024 * k
  g      = 1024 * m

-- Divide the first number by the second, and convert to a string showing two
-- decimal places.  
bytesToUnittedStr :: Word64 -> String
bytesToUnittedStr x
  | x < bk_brk = show x ++ "b"
  | x < km_brk = showHundredthsDiv x k ++ "k"
  | x < mg_brk = showHundredthsDiv x m ++ "m"
  | otherwise  = showHundredthsDiv x g ++ "g"
 where
  bk_brk = 4096
  km_brk = 768 * k
  mg_brk = 768 * m
  --
  k      = 1024
  m      = 1024 * k
  g      = 1024 * m

-- Divide the first number by the second, and convert to a string showing two
-- decimal places.  
bytesToUnittedStr x
  | x < bk_brk = show x ++ "b"
  | x < km_brk = showHundredthsDiv x k ++ "k"
  | x < mg_brk = showHundredthsDiv x m ++ "m"
  | otherwise  = showHundredthsDiv x g ++ "g"
 where
  bk_brk = 4096
  km_brk = 768 * k
  mg_brk = 768 * m
  --
  k      = 1024
  m      = 1024 * k
  g      = 1024 * m

-- Divide the first number by the second, and convert to a string showing two
-- decimal places.  