sub sym {
	for(1..pop){
		sub s{$_[0]==reverse$_[0]}
		if(&s($_)&&&s($_**2)){$s{$_}=$_**2}
	}
	\%s;
}