a =0
b a =lt(size(a),999) a replace(a,'01',10) :s(b)
 output =a
end