anchor.diff:     'X' (uppercase hex),
      'o' (octal), or
      'b' (binary)."
  -  (let* [(type (if (> (#s (or format "")) 0)
  -                 (string/char-at format (#s format))
  +  (let* [(type (if (> (# (or format "")) 0)
  +                 (string/char-at format (# format))
                    "d"))
  -         (digits (if (> (#s (or format "")) 1) (tonumber (string/sub format 1 -2)) 0))
  +         (digits (if (> (# (or format "")) 1) (tonumber (string/sub format 1 -2)) 0))
            (num->string (lambda (base size symbol)
                           (with (str (concat (reverse (map
                                                         (lambda (n)
  
positive.code:          [_ (let* [(first-char (if (= (string/char-at a 1) "-") 2 1))
                     (mult (new 1))
                     (ten (new 10))]
                (for i (#s a) first-char -1
                  (set! val (+ val (* (new (tonumber (string/char-at a i))) mult)))
                  (set! mult (* mult ten)))
                (.<! val :sign (= (string/char-at a 1) "-")))])]
  
negative.code:                        (string/concat (reverse parts)))]))]
      (while (= (string/char-at str 1) "0")
        (set! str (string/sub str 2)))
      (when (= (# str) 0)
        (set! str "0"))
      (.. (if (.> a :sign) "-" "") (string/rep "0" (- digits (# str))) str)))
  
  
  (defun equals? (a b)
  