perl -le 'map{$y=$_/12;print map{("@"," ")[-38>$_||$_>-36&&($_**2/800+$y**2-1)**3>$_**2*$y**3/1600&&0.2*($_-48)**2-15>15*$y||15*$y>($_-48)**2-12]}-40..60}reverse-15..15'