print join('',@$_),"\n" for map{@$_->[0]}map{[[map{
@$a=(@$a,1);int sin($_*0.1)*8==$b-8?[j,a,p,h]
->[$#$a%4]:' '}@$_],$b++]}([1..80])x16;