map{($c=sqrt$'*$'+$_*$_)-~~$c||print"$' $_ $c
"for//..$$}3..100