(VAR x y )
(RULES 
        f(true,x,y) -> f(gt(x,y),double(x),s(y))
        gt(s(x),0) -> true
        gt(0,y) -> false
        gt(s(x),s(y)) -> gt(x,y)
        double(x) -> doubleAkk(x,0)
        doubleAkk(0,y) -> y
        doubleAkk(s(x),y) -> doubleAkk(x,s(s(y)))
        
)