ユークリッドの互除法
; This is an HP-32Sii version of the Euclidean algorithm