program :- get_char(X),get_char(Y),check(X,Y). 
check('4','2'):- write('Finished'),!. 
check(X,Y):-write('|'), write(X), write('|'), write(Y), write('|'), nl, get_char(Z),check(Y,Z).
:- program.