string: A "Gooey kablooey said Ratface Huey"bss-data: A-digested 20string: B "When in the course of human events"bss-data: B-digested 20def 0 1 main  A-digested A.addr A.size digest  B-digested B.addr B.size digest  A-digested B-digested collision-count u.  '\n' emit  0 ;def 2 1 collision-count   0 finding-mismatch ;def 3 1 finding-mismatch  { a1 a2 i --    i 20 = if      i 3 <<    else      a1 i + c@  a2 i + c@  = if        a1  a2  i 1 +  finding-mismatch      else        i 3 <<  a1 i + c@  a2 i + c@ xor  7  byte-collision-bitcount        then    then } ;def 3 1 byte-collision-bitcount  { byte j --    j 0 < if      8 +    else       byte j >>>  1 and if        7 j -  +      else        byte  j 1 -  byte-collision-bitcount      then    then } ;