CR .( PGCD )
\ ==============================================================
\ todo
\ ==============================================================

[defined] m.pgcd 0= if\ m.pgcd
marker m.pgcd
decimal

\ ==============================================================
\ PGCD program
\
\ ==============================================================

: TUCK ( a b -- b a b ) swap over ." swap over : " .s cr ;
: PGCD ( a b -- pgcd ) cr ?dup ." ?dup : " .s cr if ." IF " tuck   mod ." mod : " .s cr recurse then ;



\ ==============================================================

[DEFINED] SFILE 0= IF\ HAND