map{$t=$_;$t-=/./g*$&until$t<print"$_
"x!$t}0..$$