for$i(0..49){my$y;$y.=substr($z.=$b=($a+=$b||1)-$b,$i>29,$i<47,'').$/while s/.$/$y.=$&;''/mge;$_=$y||0}s/\B/ /g;print