anchor.diff:                 (list (word->list A) (word->list B) (word->list C) (word->list D) (word->list E)))
               (let*((message (substring padded-message (* i 64) (+ (* i 64) 64)))
                     (W (message->words message)))
  -               (let*((a b c d e
  +               (let*((a b c d e ; round 1
                           (let loop ((a A) (b B) (c C) (d D) (e E) (t 0))
  -                           (print "abcde " a " " b " " c " " d " " e)
                              (if (< t 20)
  -                              (loop (band #xFFFFFFFF
  +                              (loop (->32
                                             (+ (rol 5 a)
  -                                             (OR (band b c) (band (~ b) d))
  +                                             (OR (band b c) (band (NOT b) d))
                                                e
                                                (list-ref W t)
                                                (list-ref K 0)))
  
positive.code:                                     d
                                      (+ t 1))
                                (values a b c d e))))
                       (_ (print "round 3:"))
                       (a b c d e
                          (let loop ((a a) (b b) (c c) (d d) (e e) (t 60))
                             (print "abcde " a " " b " " c " " d " " e)
                             (if (< t 80)
                                (loop (band #xFFFFFFFF
                                            (+ (rol 5 a)
                                               (XOR b c d)
                                               e
  
negative.code:                                     d
                                      (+ t 1))
                                (values a b c d e))))
                       (a b c d e ; round 3
                          (let loop ((a a) (b b) (c c) (d d) (e e) (t 40))
                             (if (< t 60)
                                (loop (->32
                                            (+ (rol 5 a)
                                               (OR (band b c) (band b d) (band c d))
                                               e
  