: replace ( string char char -- string' )
  [ 
    [ over = ] dip
    swap 
    [ swap drop ]
    [ drop ] if
  ] 2curry map ;