;--------------------------------------
;	kouyaku p1,p2		[最大公約数を求める]
;
;	p1,p2=1〜 ：数字
;	
;	結果はstatに返る
;--------------------------------------

#module
#deffunc kouyaku int,int
	mref a,0
	mref b,1
	mref kekka,64
	if b==0 : kekka=a : return
	c=a\b
	kouyaku b,c
	return
#global

;--------------------------------------
;	ここから、サンプルプログラム
;	実際に使うときは削除してください
;--------------------------------------
kouyaku 1026,333
mes "Ans="+stat
stop