perl -e 's/$/$\//;print while s/$/1/'