#!perl -p0157
$_=((A..Z,$")x9)[$-+=y/p//]