anchor.diff:  ;               (prompt gdb-prompt-parser))
         value))
   
  +; disassembler
   (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)
  +                              (skip maybe-whitespaces)
                                 (address (get-greedy+ (get-byte-if (lambda (x) (not (eq? x #\:))))))
                                 (skip (get-imm #\:))
  -                              (skip get-whitespaces)
  +                              (skip maybe-whitespaces)
                                 (instruction get-rest-of-line))
                        (cons (bytes->number (cddr address) 16) instruction)))))
   ;               (prompt gdb-prompt-parser))
  
positive.code:    (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))
  
negative.code: 
  ; ---
  ; почистим окно
  (cls)(syscall 1017 (c-string "stty -echo") #f #f)
  (define progressbar "-\\|/")
  
  ; main loop
  