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?$" :chr(40+ length$m) }-46..13}-20..19#!