sub r{
local$_=$@=pop;y/2569/5296/;$@!~/[347]/&&$@==reverse
}