RosettaCodeData/Task/User-input-Text/Logtalk/user-input-text-1.logtalk

:- object(user_input).

    :- public(test/0).
    test :-
        repeat,
            write('Enter an integer: '),
            read(Integer),
        integer(Integer),
        !,
        repeat,
            write('Enter an atom: '),
            read(Atom),
        atom(Atom),
        !.

:- end_object.