: replace ( string char1 char1 -- string' )
    '[ dup _ = [ drop _ ] when ] map ;