---- CR(R)
---- [Hirokawa and Middeldorp, 2011]
R:
nats() -> :(0(),inc(nats()))
inc(:(x,y)) -> :(s(x),inc(y))
inc(tl(nats())) -> tl(inc(nats()))
hd(:(x,y)) -> x
tl(:(x,y)) -> y
d(:(x,y)) -> :(x,:(x,d(y)))
CPS'(R):
inc(tl(nats())) -> inc(tl(:(0(),inc(nats()))))
inc(tl(nats())) -> tl(inc(nats()))
CP(R):
inc(tl(:(0(),inc(nats())))) -> tl(inc(nats()))