anchor.diff:    (let ((cur-time (get-internal-run-time)))
       (loop for x from 0 below iterations
          do (jsown:parse "{\"foo\":\"bar\",\"baz\":1000,\"bang\":100.10,\"bingo\":[\"aa\",10,1.1],\"bonzo\":{\"foo\":\"bar\",\"baz\":1000,\"bang\":100.10}}"))
  -    (/ (* iterations internal-time-units-per-second) (- (get-internal-run-time) cur-time))))+    (/ (* iterations internal-time-units-per-second) (- (get-internal-run-time) cur-time))))
  
positive.code: 
  (defun skip-number (buffer)
    (declare (type buffer buffer))
    (decr-char buffer)
    (skip-until* buffer #\] #\} #\,))
  
  ;;;;;;;;;;;;;;;;;;;
  ;;;; User interface
  
negative.code: (defun read-key (buffer)
    "reads a key from the key-value list"
    (declare (type buffer buffer))
    (parse-string buffer))
  
  (defun skip-key (buffer)
  