list_print([H|T]) :-
    write(H),
    write("  "),
    list_print(T).

list_print([]).

list_bind([H|T]) :-
    bind(H),
    list_bind(T).
list_bind([]).

%tafeln
tafeln(X,R) :-
    list_bind(X),
    list_print(X),
    exp(R,Res),

    write("  |  "),
    write(Res),

    nl,
    fail.
tafeln(_,_).