%repeat, write("hey").

%consult(peter).

start:- repeat,
        writeln('G u e s s  a  W o r d'),
        writeln('----------------------'),
        writeln('r - read database file'),
        writeln('l'),
        writeln('a'),
        writeln('d'),
        writeln('w'),
        writeln('g'),
        writeln('e'),
        get_single_char(X),
        char_code(Y,X),
        write('Command: '),
        writeln(Y),
        read_file(Y),
        list(Y),
        add(Y),
        list(Y),
        del(Y),
        write_file(Y),
        guess(Y),
        Y='e'.

:- start.

read_file(Y):- Y='r'.
list(Y):- Y='l'.
add(Y):- Y='a'.
del(Y):- Y='d'.
write_file(Y):- Y='w'.
guess(Y):- Y='g', .