! Takes a string two characers and replace every instance of char1 with char2 in the string : replace ( string char1 char1 -- string' ) [ [ over = ] dip swap [ swap drop ] [ drop ] if ] 2curry map ;