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