s/.*/x&y/;:a;s/\(x[01]*\)0y/\1ySK/;ta;s/\(x[01]*\)1y/S(K\1y)/;ta;s/xy/I/