{VERSION 2 3 "SUN SPARC SOLARIS" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "gcd(53,1171);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "evalf(1171/53);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "gcd(17^18*2^5*3^2*5^4,17^16*2^2*3^4
*5^3);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "ifactor(\");" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "gcd1:=proc(a,b)\nlocal r, d
, c:\nr:=a mod b:\nd:=b:\nwhile r>0 do\n   c:=d:\n   d:=r:\n   r:= c m
od d:\nod:\nd:\nend;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "gcd
(15, 27);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "gcd1(15,27);" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "gcd1(27,15);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "gcd2:=proc(a,b)\nif a mod b = 0 the
n\n  b:\nelse gcd(b, a mod b):\nfi:\nend;" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 12 "gcd2(27,15);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 145 "for a from 15 to 100 by 6 do\n  for b from 61 to 101 by 9 do
\n    print(a+b,2*b-a,gcd(a+b,2*b-a),gcd1(a+b,2*b-a),       gcd2(a+b,2
*b-a));\n  od:\nod:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "gcd(
234523396753456777104, 107753051604567882);" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 48 "gcd1(234523396753456777104, 107753051604567882);" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "gcd2(23452339675345677710
4, 107753051604567882);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "
ifactor(2345233967534567771041*(88423+2));" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 15 "solve(r^2-r-1);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 35 "m:=(1+sqrt(5))/2: n:=(1-sqrt(5))/2:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 8 "m^5+n^5;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "expand(\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 37 "solve(\{c1+c2=1,m*c1+n*c2=1\},\{c1,c2\});" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 10 "expand(\");" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "sqrt(5)/10*(5^(1/2)-1);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "expand(\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}}}{MARK "23 0 0" 0 }{VIEWOPTS 1 1 0 2 1 1805 }