($a[$_/3-int$_/5]|=$"x"@+".$_)=~/$/for 1..100;print@a,$,=$/