: foreach   over + swap ;
: 2roll   dup roll roll ;

: replace ( addr len c1 c2 -- )
    swap 3 2roll ( c2 c1 addr len )
    foreach do ( c2 c1 )
        2dup
        i c@ = if i c! else drop then
    loop
    2drop ;