Prolog - suma de numeros

suma de numeros con read()input

lo que quiero hacer es sumar 2 numeros que el usuario ingrese y se me ocurrio hacerlo asi, pero me sale false , alguna idea de que pueda hacer
contar:-write('pon un numero'),nl,
read(Input),X = Input,nl,
write('pon un numero'),nl,
read(Input),X is Input + X,nl,
write(X).

Por ejemplo:
contar2:- write('pon un numero'),nl,
read(X),
write('pon un numero'),nl,
read(Y), S is X + Y,
write(S).
Que es casi lo mismo que tenias.
saludos