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