Say 101100~changeStr("1","") -- "000"
Say 101100~changeStr("1","X") -- "X0XX00"
Say 101100~changeStr("1","X",1) -- "X01100"
-- a Quine: will print an exact copy of itself
-- (see https://en.wikipedia.org/wiki/Quine_%28computing%29)
r=";say'r=.'r'.'r~changeStr(.,'22'x,2)";say'r="'r'"'r~changeStr(.,'22'x,2)