%h=(
0=>' *',
5=>' ',
20=>"\n",
21=>'* ',
26=>'*',
27=>'=',
42=>"\n",
43=>'=',
69=>"\n"
);
sub f{$n=$h{$_}?$_:$n;print$h{$n}}
f for 21..42;
for(0..2){f for 0..42}
for(0..2){f for 42..69}