print 1,$/;
for(2..100){$l="";for$s(@S){$l.=$$s[1]if$_%$$s[0]==0}if($l eq""){$l=substr("DoFiBuMePaQoDiFuBeMaPoQiDuFeBaMoPiQuDeFaBoMiPuQeDa",$p,2)."zz";push(@S,[$_,$l]);$p+=2}print$l,$/}