$x+=7**$_ for<>=~/./g;//,($x+7**$'-7**$&)%974||print"$& $'"for'00'..QQ