sub ctrl { return chr( ord( uc(shift) ) - 64 ); }