printf"%f "x@$_,sqrt for map@{($_&31)**2+($_>>5)**2}=$_,1..901