S" normal"S" (bin)"S" (sym)"S" (alnum)"'Œq 15. [do] 4 /mod swap 1+ 2* dup 1+ pick swap pick type cr [loop]