sub mc_sym {
  +{map{(reverse==$_&&($x=$_*$_)==reverse$x)?($_,$x):()}1..pop}
}