{VERSION 2 3 "IBM INTEL NT" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{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 -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 }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 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "Alphabet:= convert([
10,seq(i,i=32..126),149],bytes);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%
)AlphabetG%\\q|+~!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRST
UVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz|fr|gr|hr|ir|`tG" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "length(Alphabet);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#\"#(*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 191 
"ToVect:= proc(text)\n  local i;\n  global Alphabet;\n  [seq( [ Search
Text(substring(text,2*i-1),Alphabet)-1,\nSearchText(substring(text,2*i
)  ,Alphabet)-1 ],\n        i=1..(length(text)/2))];\nend:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "ToVect(`hi\\nho.`);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#7%7$\"#t\"#u7$\"\"!F%7$\"#!)\"#:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "4 0 0" 0 }{VIEWOPTS 1 1 0 3 
2 1804 }