; @origtpdbfilename ./TRS/SK90/4.18.trs
; @xtcfilename "./TRS_Standard/SK90/4.18.xml"
(format TRS)
(fun gcd 2)
(fun |0| 0)
(fun s 1)
(fun if 3)
(fun < 2)
(fun - 2)
(rule (gcd x |0|) x)
(rule (gcd |0| y) y)
(rule (gcd (s x) (s y)) (if (< x y) (gcd (s x) (- y x)) (gcd (- x y) (s y))))