m(X):-put(X),(X=48,halt;m(X)).
:-get(X),m(X).