; @origtpdbfilename ./TRS/SK90/4.17.trs
; @xtcfilename "./TRS_Standard/SK90/4.17.xml"
(format TRS)
(fun fac 1)
(fun s 1)
(fun * 2)
(fun p 1)
(fun |0| 0)
(rule (fac (s x)) (* (fac (p (s x))) (s x)))
(rule (p (s |0|)) |0|)
(rule (p (s (s x))) (s (p (s x))))