(VAR X Y)
(RULES 
first(0,X) -> nil
first(s(X),cons(Y)) -> cons(Y)
from(X) -> cons(X)
)