s="1=2-1
";for(n in 1:6)s=sub(-1,"-(2-1)",s,cat(s))