anchor.diff:           [_ (let* [(first-char (if (= (string/char-at a 1) "-") 2 1))
                      (mult (new 1))
                      (ten (new 10))]
  -              (for i (#s a) first-char -1
  +              (for i (# 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) "-")))])]
  
positive.code:    'X' (uppercase hex),
     'o' (octal), or
     'b' (binary)."
    (let* [(type (if (> (#s (or format "")) 0)
                   (string/char-at format (#s format))
                   "d"))
           (digits (if (> (#s (or format "")) 1) (tonumber (string/sub format 1 -2)) 0))
           (num->string (lambda (base size symbol)
                          (with (str (concat (reverse (map
                                                        (lambda (n)
  
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)
  