{VERSION 2 3 "DEC ALPHA UNIX" "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 "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&<$/%\"NG,&),&\"N\\!)3,RaL9#GBm)z\\tHGt')>$*4\"\"\"\"*$\"(%\\HZ#F
*\"\"#\"JSj)*3/aN(>yZuI.:VB&[\\0&%$_N1GF-),&F)F*F+!JSj)*3/aN(>yZuI.:VB
&[\\0&F0F-/%\"PG,$*&F,F-,&F'F*F1!\"\"F*#F*\"())*e%*<$F4/F%,&F'#F9F.F1F
?<$F=/F5,$F7#F9F;<$F$FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 245 
"1/9458988*4729494^(1/2)*((1099319867328297349798662328214335439010880
49+\n50549485234315033074477819735540408986340*4729494^(1/2))^_N1-(\n1
09931986732829734979866232821433543901088049-\n50549485234315033074477
819735540408986340*4729494^(1/2))^_N1);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#,$*&\"(%\\HZ#\"\"\"\"\"#,&),&\"N\\!)3,RaL9#GBm)z\\tHGt')>$*4\"F'
*$F%F&\"JSj)*3/aN(>yZuI.:VB&[\\0&%$_N1GF'),&F,F'F-!JSj)*3/aN(>yZuI.:VB
&[\\0&F/!\"\"F'#F'\"())*e%*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
95 "a:=109931986732829734979866232821433543901088049:\nb:=505494852343
15033074477819735540408986340:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 76 "Pproc := proc(n) expand(sqrtdd/9458988*((a+b*sqrtdd)^n-(a-b*sq
rtdd)^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*Qpro
c(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#$\"$L*!\"$" }}{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 }