sodo(succ(Y)) :- liho(Y).
sodo(zero).
liho(succ(X)) :- sodo(X).
