**TI92P*prgm_seFunction file 07/07/08, 11:02Reuclid1Z(a,b) Func Local l1 {a,b}l1 While l1[2]0 {l1[2],l1[1]-int(l1[1]/(l1[2]))*l1[2]}l1 EndWhile "pgcd = "&string(l1[1]) EndFunc(