anchor.diff:        ((chars (get-greedy* (get-byte-if (lambda (x) (not (eq? x #\newline))))))
          (skip  (get-imm #\newline))) ;; <- note that this won't match if line ends to eof
         chars))
  +(define get-whitespaces
  +   (get-greedy* (get-byte-if (lambda (x) (has? (list #\space #\tab) x)))))
   
   (define ff-digit-values
      (list->ff
  
positive.code: (define ip (bytes->string
  (gdb gdb-target-connected-parser "target remote localhost:1234")))
  
  (print "Current IP is " ip)
  (print "Press [Ctrl+C]...")
  
  ; let's do few steps to leave the initial "bios" zeros at 0xfff0
  ;; (let loop ()
  ;;    (let ((ip (gdb gdb-si-answer-parser "si")))
  ;;       (if (< (bytes->number (cddr ip) 16) #x00010000)
  ;;          (loop))))
  ; Looks like our machine ready to start:
  
  ; окошко с регистрами. обновляет, добывает, рисует
  
negative.code: (define gdb-si-answer-parser
     (let-parses((ip (get-greedy* (get-byte-if (lambda (x) (not (eq? x #\space))))))
                 (skip (get-word " in " #t))
                 (skip get-rest-of-line))
  ;               (prompt gdb-prompt-parser))
        ip))
  (define gdb-p-x-answer-parser
     (let-parses((skip (get-greedy* (get-byte-if (lambda (x) (not (eq? x #\space))))))
                 (skip (get-word " = 0x" #t))
                 (value get-rest-of-line))
  ;               (prompt gdb-prompt-parser))
        value))
  
  (define gdb-x-i-answer-parser
     (let-parses((lines (get-greedy+
                    (let-parses((skip (get-any-of (get-word "=> " #t)
                                                  (get-word "   " #t)))
                                (skip get-whitespaces)
                                (address (get-greedy+ (get-byte-if (lambda (x) (not (eq? x #\:))))))
                                (skip (get-imm #\:))
                                (skip get-whitespaces)
                                (instruction get-rest-of-line))
                       (cons (bytes->number (cddr address) 16) instruction)))))
  ;               (prompt gdb-prompt-parser))
        lines))
  
  (define gdb-x-x-answer-parser
     (let-parses((lines (get-greedy+
                    (let-parses((skip (get-any-of (get-word "=> " #t)
                                                  (get-word "   " #t)))
                                (skip get-whitespaces)
                                (address (get-greedy+ (get-byte-if (lambda (x) (not (eq? x #\:))))))
                                (skip (get-imm #\:))
                                (skip get-whitespaces)
                                (instruction get-rest-of-line))
                       (cons (bytes->number (cddr address) 16) instruction)))))
  ;               (prompt gdb-prompt-parser))
        lines))
  
  
  ; =============================================================================================
  