{VERSION 3 0 "DEC ALPHA UNIX" "3.0" }
{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 "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }1 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 
1 0 0 255 1 0 0 0 0 0 0 1 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 12 "dd:=4729494;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#ddG\"(%\\HZ" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 17 "sqrtdd:=sqrt(dd):" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 21 "isolve(N^2-dd*P^2=1);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6&<$/%\"PG,$*&-%%sqrtG6#\"(%\\HZ\"\"\",&),&\"N\\!)3,RaL9#GBm)z\\tH
Gt')>$*4\"\"\"\"*$F(F,\"JSj)*3/aN(>yZuI.:VB&[\\0&%$_N1GF1),&F0F1F2!JSj
)*3/aN(>yZuI.:VB&[\\0&F4!\"\"F1#F1\"())*e%*/%\"NG,&F.#F1\"\"#F5F><$F$/
F<,&F.#F8F?F5FC<$FA/F%,$F'#F8F:<$FEF;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 245 "1/9458988*4729494^(1/2)*((10993198673282973497986623
2821433543901088049+\n50549485234315033074477819735540408986340*472949
4^(1/2))^_N1-(\n109931986732829734979866232821433543901088049-\n505494
85234315033074477819735540408986340*4729494^(1/2))^_N1);" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#,$*&-%%sqrtG6#\"(%\\HZ\"\"\",&),&\"N\\!)3,RaL9#G
Bm)z\\tHGt')>$*4\"\"\"\"*$F%F)\"JSj)*3/aN(>yZuI.:VB&[\\0&%$_N1GF.),&F-
F.F/!JSj)*3/aN(>yZuI.:VB&[\\0&F1!\"\"F.#F.\"())*e%*" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 95 "a:=10993198673282973497986623282143354390
1088049:\nb:=50549485234315033074477819735540408986340:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "Pproc := proc(n) expand(sqrtdd/9458
988*((a+b*sqrtdd)^n-(a-b*sqrtdd)^n)) end:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 15 "(2*a) mod 9314;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
\"%7))" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 " Qproc := proc(n)
 option remember; (8812*Qproc(n-1)-Qproc(n-2)) mod 9314 end:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Qproc(0):=Pproc(0) mod 9314:
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Qproc(1):=Pproc(1) mod \+
9314:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 68 "start:=time():\nfor nu while Qproc(nu)<>0 do od:\ntime()-start;
\nnu-1; " }}{PARA 7 "" 0 "" {TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#$\"$Z#!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"%GB" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 8 }{VIEWOPTS 1 
1 0 1 1 1803 }