i=$(words $(filter 0%,$(subst $c, 0,$(STDIN)))) r=r s t u v w x y z $(foreach c,A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q $r,$(info $c: $(if $(word $i,$r), )$i))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).