print map{$i=$_/ 20;$/,map {$r=$; =$_/20;$ z=$i; $n=$z*$ z,$z =2*$r * $z+$ i,$r= ( $m= $ r*$r )-$n+ $ ;for a..z; $ m<4? $":"+"}- 46.. 13}-20..19 #GEB?