anchor.diff:  
   ; ---
   ; почистим окно
  -(cls)
  +(cls)(syscall 1017 (c-string "stty -echo") #f #f)
   (define progressbar "-\\|/")
   
   ; main loop
  
positive.code:             (map (lambda (d i) (cons d i)) (iota 10 #\0) (iota 10 0))  ;; 0-9
              (map (lambda (d i) (cons d i)) (iota  6 #\A) (iota 6 10))  ;; A-F
              (map (lambda (d i) (cons d i)) (iota  6 #\a) (iota 6 10))  ;; a-f
              ; и обратно
              (map (lambda (d i) (cons d i)) (iota 10 0) (iota 10 #\0))  ;; 0-9
              (map (lambda (d i) (cons d i)) (iota 6 10) (iota  6 #\a))  ;; a-f
              ))))
  
  ; assert (eq? (car bytes) #\0)
  ; assert (eq? (cadr bytes) #\x)
  (define (bytes->number bytes base)
     (fold (lambda (f x) (+ (* f base) (get ff-digit-values x 0)))
        0 bytes))
  (define ($reg->string $reg)
     (bytes->string
        (map (lambda (i)
           (get ff-digit-values (band (>> $reg (* i 4)) #b1111) #\?))
           (reverse (iota 8 0)))))
  
  ; ================================================================================
  
negative.code: (print "Your QEmu session ready to debug")
  ; Looks like our machine ready to start, ok.
  
  ,load "registers.lisp"
  
  (fork-server 'code (lambda ()
  (let loop ((ff #empty))
  (let*((envelope (wait-mail))
        (sender msg envelope))
     (let ((code (gdb gdb-x-i-answer-parser "x/11i $eip")))
        (locate 1 1) (set-color GREY)
        (for-each (lambda (ai)
              (display "                                                           \x1B;[1000D")
  