Comment renvoyer une valeur pour une fonction dans TI-89?

Question

Ceci est ma fonction pour calculer le GCD de deux nombres a et b. Lorsque j'utilise PRGM et ENDPRGM, cela a bien fonctionné. Cependant, il a continué à apparaître un message d'erreur dire "non valide dans une fonction ou une expression actuelle" lors de la création d'une fonction :(. Une idée?

gcd(a, b )
Func 
 If a>b Then
  a->t
  b->a
  t->b
 EndIf

 While b#0
  a->t
  b->a
  mod(t, b)->b 
 EndWhile
 Return a
EndFunc