{VERSION 2017 0 "Linux" "2017.0" }
{USTYLETAB {PSTYLE "Ordered List 1" -1 200 1 {CSTYLE "" -1 -1 "Times"
 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }
{PSTYLE "Ordered List 2" -1 201 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 
1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 36 2 0 2 2 -1 1 }{PSTYLE "Ordered
 List 3" -1 202 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 
0 0 1 }1 1 0 0 3 3 2 72 2 0 2 2 -1 1 }{PSTYLE "Ordered List 4" -1 203 
1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3
 3 2 108 2 0 2 2 -1 1 }{PSTYLE "Ordered List 5" -1 204 1 {CSTYLE "" -1
 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 144 2 0 2 
2 -1 1 }{PSTYLE "Author" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1
 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 8 8 2 0 2 0 2 2 -1 1 }{PSTYLE "Warning" 
-1 7 1 {CSTYLE "" -1 -1 "Courier New" 1 12 0 0 255 1 2 2 2 2 2 1 1 0 0
 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Annotation Title" -1 205 1 
{CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }3 1 0 0 12 
12 2 0 2 0 2 2 -1 1 }{PSTYLE "Fixed Width" -1 17 1 {CSTYLE "" -1 -1 "C
ourier" 1 10 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1
 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2
 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Line Printe
d Output" -1 6 1 {CSTYLE "" -1 -1 "Courier New" 1 12 0 0 255 1 2 2 2 2
 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Help" -1 10 1 
{CSTYLE "" -1 -1 "Courier" 1 9 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 
0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "C
ourier New" 1 12 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 
2 -1 1 }{PSTYLE "Diagnostic" -1 9 1 {CSTYLE "" -1 -1 "Courier New" 1 
12 40 120 40 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Maple Output" -1 
11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 
0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Dash Item" -1 16 1 {CSTYLE "" -1 -1 "
Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 
}{PSTYLE "HyperlinkError" -1 206 1 {CSTYLE "" -1 -1 "Courier New" 1 12
 255 0 255 1 2 2 1 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }
{PSTYLE "Error" -1 8 1 {CSTYLE "" -1 -1 "Courier New" 1 12 255 0 255 1
 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Title" -1
 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }3 1 0
 0 12 12 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1
 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }1 1 0 0 8 4 2 0 2 0 2 2 -1 
1 }{PSTYLE "Bullet Item" -1 15 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1
 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 4
" -1 20 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 1 0 0 1 }1
 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 3" -1 5 1 {CSTYLE "" -1 
-1 "Times" 1 14 0 0 0 1 1 1 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 
-1 1 }{PSTYLE "Heading 2" -1 4 1 {CSTYLE "" -1 -1 "Times" 1 16 0 0 0 1
 2 1 2 2 2 2 1 0 0 1 }1 1 0 0 8 2 2 0 2 0 2 2 -1 1 }{PSTYLE "Hyperlink
Warning" -1 207 1 {CSTYLE "" -1 -1 "Courier New" 1 12 0 0 255 1 2 2 1 
2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Left Justified M
aple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2
 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "List Item" -1 14 1 
{CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3
 2 0 2 0 2 2 -1 1 }{CSTYLE "Annotation Text" -1 200 "Times" 1 12 0 0 0
 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Maple Name" -1 35 "Times" 1 12 
104 64 92 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Bold" -1 5 "Times" 1
 12 0 0 0 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "Help Menus" -1 36 "Times" 1 
12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic" -1 3 "Times" 
1 12 0 0 0 1 1 2 2 2 1 2 0 0 0 1 }{CSTYLE "Help Normal" -1 30 "Times" 
1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Plot Text" -1 28 "Times" 1 
8 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Nonterminal" -1 24 "Couri
er" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Heading" -1 26 "Ti
mes" 1 14 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Italic" -1 42 "Ti
mes" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Variable" -1 25 "
Courier" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Italic Bold" 
-1 40 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Default" -1 
38 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined \+
Italic" -1 43 "Times" 1 12 0 0 0 1 1 2 1 2 2 2 0 0 0 1 }{CSTYLE "Maple
 Input" -1 0 "Courier New" 1 12 120 0 14 1 2 1 2 2 1 2 0 0 0 1 }
{CSTYLE "2D Output" -1 20 "Times" 1 12 0 0 255 1 2 2 2 2 2 1 0 0 0 1 }
{CSTYLE "2D Math Bold Small" -1 10 "Times" 1 1 0 0 0 1 2 1 2 2 1 2 0 0
 0 1 }{CSTYLE "2D Math Small" -1 7 "Times" 1 1 0 0 0 1 2 2 2 2 1 2 0 0
 0 1 }{CSTYLE "Page Number" -1 33 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0
 0 1 }{CSTYLE "Output Labels" -1 29 "Times" 1 8 0 0 0 1 2 2 2 2 2 2 0 
0 0 1 }{CSTYLE "Plot Title" -1 27 "Times" 1 10 0 0 0 1 2 1 2 2 2 2 0 0
 0 1 }{CSTYLE "Help Emphasized" -1 22 "Times" 1 12 0 0 0 1 1 2 2 2 2 2
 0 0 0 1 }{CSTYLE "2D Math Symbol 2" -1 16 "Times" 1 12 0 0 0 1 2 2 2 
2 2 2 0 0 0 1 }{CSTYLE "Maple Comment" -1 21 "Courier" 1 12 0 0 0 1 2 
1 2 2 2 2 0 0 0 1 }{CSTYLE "Caption Reference" -1 201 "Times" 1 12 0 0
 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic Small204" -1 202 "Ti
mes" 1 1 0 0 0 1 1 2 2 2 1 2 0 0 0 1 }{CSTYLE "Maple Input Placeholder
" -1 203 "Courier New" 1 12 200 0 200 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "
Code" -1 204 "Courier New" 1 12 255 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE
 "2D Math Italic Small206" -1 205 "Times" 1 1 0 0 0 1 1 2 2 2 1 2 0 0 
0 1 }{CSTYLE "2D Inert Output" -1 206 "Times" 1 12 144 144 144 1 2 2 2
 2 1 2 0 0 0 1 }{CSTYLE "2D Math Italic Small" -1 207 "Times" 1 1 0 0 
0 1 1 2 2 2 1 2 0 0 0 1 }{CSTYLE "2D Comment" -1 18 "Times" 1 12 0 0 0
 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "Help Underlined Bold" -1 41 "Times" 1
 12 0 0 0 1 1 1 2 2 2 2 0 0 0 1 }{CSTYLE "Copyright" -1 34 "Times" 1 
10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Hyperlink" -1 17 "Times" 1 12
 0 128 128 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined" -1 44 "Tim
es" 1 12 0 0 0 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Prompt" -1 1 "Courier" 
1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 1 12 
0 0 0 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "2D Input" -1 19 "Times" 1 12 0 0
 0 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "Header and Footer" -1 208 "Times" 1
 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Text" -1 209 "Times" 1 12 0 
0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Notes" -1 37 "Times" 1 12 0 0
 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Bold" -1 39 "Times" 1 12 0 0 0
 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Equation Label" -1 210 "Times" 1 12 0
 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "LaTeX" -1 32 "Times" 1 12 0 0 0 1
 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Popup" -1 31 "Times" 1 12 0 128 128 1 1
 2 1 2 2 2 0 0 0 1 }{CSTYLE "Atomic Variable" -1 211 "Times" 1 12 175 
0 175 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Dictionary Hyperlink" -1 45 "Tim
es" 1 12 147 0 15 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Caption Text" -1 212
 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Fixed" -1 23 
"Courier" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "restart; with(numth
eory);" }}{PARA 11 "" 1 "" {XPPMATH 20 "7SI&GIgcdG6\"I)bigomegaGF$I&cf
racGF$I)cfracpolGF$I+cyclotomicGF$I)divisorsGF$I)factorEQGF$I*factorse
tGF$I'fermatGF$I)imagunitGF$I&indexGF$I/integral_basisGF$I)invcfracGF$
I'invphiGF$I-iscyclotomicGF$I*issqrfreeGF$I,ithrationalGF$I'jacobiGF$I
*kroneckerGF$I'lambdaGF$I)legendreGF$I)mcombineGF$I)mersenneGF$I(migcd
exGF$I*minkowskiGF$I(mipolysGF$I%mlogGF$I'mobiusGF$I&mrootGF$I&msqrtGF
$I)nearestpGF$I*nthconverGF$I)nthdenomGF$I)nthnumerGF$I'nthpowGF$I&ord
erG%*protectedGI)pdexpandGF$I$phiGF$I#piGF$I*pprimrootGF$I)primrootGF$
I(quadresGF$I+rootsunityGF$I*safeprimeGF$I&sigmaGF$I*sq2factorGF$I(sum
2sqrGF$I$tauGF$I%thueGF$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "numtheory[index](3,2,11
); # discrete log of 2 with prim root 2 modulo 11" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "\"\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "2 &^ \+
8 mod 11; # check answer" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"$" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "numtheory[primroot](11); # g
et first primitive root mod 11" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"#"
 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "# check that it is prim \+
root\nfor i from 1 to 10 do i, 2&^ i mod 11; od;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"\"\"\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"#\"
\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"$\"\")" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"\"%\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"&\"#5
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"'\"\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"\"(F#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\")\"\"$" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"*\"\"'" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"#5\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
48 "2*2&^7 mod 11; # sol to 2 * x^7 equiv 3 (mod 11)" }}{PARA 11 "" 1 
"" {XPPMATH 20 "\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "#
 five 5-th roots of 10 modulo 11\nfor i from 1 to 9 by 2 do 2 &^ i mod
 11, (2 &^ i) &^ 5 mod 11; od;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"
#\"#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\")\"#5" }}{PARA 11 "" 1 ""
 {XPPMATH 20 "6$\"#5F#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"(\"#5" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"'\"#5" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 31 "g13 := numtheory[primroot](13);" }}{PARA 11 "" 1 ""
 {XPPMATH 20 "\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a :=
 2 &^ 9 mod 13;" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"&" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "numtheory[index](a,g13,13);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "\"\"*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "2 &^ 9 mod 13;" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"&
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "b1:= 8; b1 &^ 3 mod 13;
 # first 3-rd root of 5" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\")" }}
{PARA 11 "" 1 "" {XPPMATH 20 "\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 42 "b2:=2 &^ 7 mod 13; # second 3-rd root of 5" }}{PARA 
11 "" 1 "" {XPPMATH 20 "\"#6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 15 "b2 &^ 3 mod 13;" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"&" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "b3:=2 &^ 11 mod 13; # third \+
3-rd root of 5" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"(" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "b3 &^ 3 mod 13;" }}{PARA 11 "" 1 ""
 {XPPMATH 20 "\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "10 &
^ 5 mod 11; # another 5-th root of 10 modulo 11" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "\"#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "# the
 5 5-th roots of 10 modulo 11\nfor i from 1 to 10 by 2 do # all odd in
dices\n   2 &^ i mod 11,(2 &^ i) &^ 5 mod 11; od;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"\"#\"#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\")\"#5"
 }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#5F#" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"\"(\"#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"'\"#5"
 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "# the 8 8-th roots of 16
 modulo 17\nfor i from 1 to 16 do i,i &^ 8 mod 17; od;" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6$\"\"\"F#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"#
\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"$\"#;" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6$\"\"%\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"&
\"#;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"'\"#;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"\"(\"#;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\")\"\"
\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"*\"\"\"" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"#5\"#;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#6\"#;" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#7\"#;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"#8\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#9\"#;"
 }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#:\"\"\"" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"#;\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
111 "# all 11 quartic residues modulo 23\n# (all residues with even in
dex)\nfor i from 1 to 22 do i,i &^ 4 mod 23; od;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"\"\"F#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"#\"#;" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"$\"#7" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"\"%\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"&\"\"
%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"'\"\")" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"\"(\"\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\")\"\"
#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"*\"\"'" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"#5\"#=" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#6\"#8" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#7\"#8" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"#8\"#=" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#9\"\"'" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#:\"\"#" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"#;\"\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#<\"\")"
 }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#=\"\"%" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"#>\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#?\"#7" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#@\"#;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$\"#A\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 
"p := 23;" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"#B" }}}{EXCHG {PARA 0 "> 
" 0 "" {MPLTEXT 1 0 56 "a := 6; a &^ 11 mod 23; # Legendre symbol of 6
 modulo 23" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"'" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "b :=
 6 &^ ((23+1)/4) mod 23; # squareroot of 6" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "\"#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "b^2 mo
d 23;" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"'" }}}{EXCHG {PARA 0 "> " 0
 "" {XPPEDIT 19 1 "Typesetting:-mi(\"?\", italic = \"true\", mathvaria
nt = \"italic\");" "-I#miG6#/I+modulenameG6\"I,TypesettingGI(_syslibGF
'6%Q\"?F'/%'italicGQ%trueF'/%,mathvariantGQ'italicF'" }}}}
{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 25 10 1803 1 1 1 1 }{PAGENUMBERS 0 1
 2 33 1 1 }