Function Stream-Subst

( stream-subst < old > < new > < in > < out > )