anchor.diff:        lines))
   
   (define gdb-monitor-x-answer-parser
  -   (let-parses((value (get-greedy+
  +   (let-parses((value (get-greedy*
                     (let-parses((skip get-hex)
                                 (skip (get-imm #\:))
                                 (skip get-whitespaces)
  
positive.code: 
  ; и главный цикл обработки событий клавиатуры
  ; main loop
  (let main ((dirty #true) (progress 0))
     (hide-cursor)
     (locate 58 1) (set-color GREY)
  
negative.code:                      bytes)))
                 (skip gdb-prompt-parser))
        (fold append '() value)))
  
  (define gdb-monitor-info-mem-parser
     (let-parses((value (get-greedy*
                    (let-parses((start get-hex)
                                (skip (get-imm #\-))
                                (end   get-hex)
                                (skip (get-imm #\space))
                                (len   get-hex)
                                (skip (get-imm #\space))
                                (attr  get-rest-of-line))
                       (tuple start end len attr)))))
        value))
  
  ; =============================================================================================
  ; ==
  