p (?\A-p +
   ?\B-p +
   ?\C-p +
   ?\D-p +
   ?\E-p +
   ?\F-p +
   ?\G-p +
   ?\H-p +
   ?\I-p +
   ?\J-p +
   ?\K-p +
   ?\L-p +
   ?\M-p +
   ?\N-p +
   ?\O-p +
   ?\P-p +
   ?\Q-p +
   ?\R-p +
   ?\S-p +
   ?\T-p +
   ?\U-p +
   ?\V-p +
   ?\W-p +
   ?\X-p +
   ?\Y-p +
   ?\Z-p).b
   .tr 'A-Z', ('_')/~0

BEGIN{class Object ; def
-(o)self end;alias/ -end}