**TI92P*mainFunction file 06/27/05, 20:34Rbezoubisý¥Z£(m,n) Func Local d,l,s pgcdbis(m,n)d m/dm n/dn bezouun(m,n,1)l l[1]+l[2]s If 2*s>m+n ­l+{n,m}l l[1]+l[2]s augment(l,{2*s-1,d})l Return l EndFuncäåÜÚ1pqE