[0] Perl> sub steps { my($i,$m,$o) = (0,@_); print( "$i: $m $o" ), ++$i,( $m >= $o ? ($m -= $o) : ($o -= $m )) while $m and $o; };;

[0] Perl> steps( 9, 6 );;
0: 9 6
1: 3 6
2: 3 3

[0] Perl> steps( 17, 9 );;
0: 17 9
1: 8 9
2: 8 1
3: 7 1
4: 6 1
5: 5 1
6: 4 1
7: 3 1
8: 2 1
9: 1 1