sub symmetrical_squares {
+{map reverse^$_|reverse($x=$_**2)^$x?():($_,$x),0..pop}
}