{VERSION 4 0 "SUN SPARC SOLARIS" "4.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "3*26+14;" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#\"##*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 13 "iquo(295,26);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#6" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "irem(295,26);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#\"\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
13 "modp(295,26);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 205 "KgraphToKnums:=proc(text,k)\n    l
ocal textnums,i,j,p;\n    global Alphabet;\n\n    p:=length(Alphabet);
\n\n    textnums:=ToNum(text);\n    [seq(sum(textnums[(j-1)*k+i]*p^(k-
i),i=1..k),j=1..length(text)/k)];\nend;" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%.KgraphToKnumsGR6$%%textG%\"kG6&%)textnumsG%\"iG%\"jG%\"pG6\"F
.C%>8'-%'lengthG6#%)AlphabetG>8$-%&ToNumG6#9$7#-%$seqG6$-%$sumG6$*&&F7
6#,&*&,&8&\"\"\"FJ!\"\"FJ9%FJFJ8%FJFJ)F1,&FLFJFMFKFJ/FM;FJFL/FI;FJ*&-F
3F:FJFLFKF.F4F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "Alphabet
:=\"ABCDEFGHIJKLMNOPQRSTUVWXYZ\";" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%)AlphabetGQ;ABCDEFGHIJKLMNOPQRSTUVWXYZ6\"" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 26 "KgraphToKnums(\"BADDOG\",3);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#7$\"$z'\"%)R#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 14 "1*26^2+0*26+3;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"$z'" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "3*26^2+14*26+6;" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#\"%)R#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 188 "KnumsToKgraphs:=proc(numlist,k)\n    local p;\n    global Alpha
bet;\n    p:=length(Alphabet);\n    FromNum([seq(seq(iquo(modp(numlist
[j],p^(k-i+1)),p^(k-i)),i=1..k),j=1..nops(numlist))]);\nend:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "KnumsToKgraphs([679,2398],3)
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q'BADDOG6\"" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "8 0 0" 15 }{VIEWOPTS 1 1 0 2 1 
1805 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }