BEGIN{for(split//,'79ISjklmqruvwxz|'){my$a=chr(
ord^25);*{uc()}=sub{print$a}}};&9(S,M L,J),K &|
(Q X,M W,V),&|(&9(K),I);&9(U),&|(R Q,Z X),&7(K)