(define (human b , (radix 0))
  (while (> (/ b 1024) 0)
    (set 'b (div b 1024))
    (inc radix))
  (format "%.2f %s" b (nth radix magnitudes)))