anchor.diff:  (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))
  +               (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 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))
   
   
   ; =============================================================================================
  
positive.code: (syscall 1017 (c-string "killall qemu-system-i386") #f #f)
  (syscall 1017 (c-string "killall gdb") #f #f)
  
  ;; #qemu-img create -f qcow2 win7.qcow2.hd 3G
  ;; qemu-system-i386 -enable-kvm -m 512 -cdrom /home/uri/Downloads/W7-Super-Lite-x86-Install-2017.iso -boot d -monitor stdio win7.qcow2.hd -s -S
  
  
negative.code: (fork-server name (lambda ()
     (define In (syscall 22 #f #f #f)) ; create input/output pipes: '(read-pipe . write-pipe)
     (define Out (syscall 22 #f #f #f))
     (syscall 59 (c-string (car arguments)) ; (syscall:fork)
        (map c-string arguments)
        (list (car In) (cdr Out) stderr))
  