%Lab 7 - Part 2 - Translating Questions

:- consult('l7p2eng.pl').
:- consult('l7p2esp.pl').
:- consult('lab7fns.pl').

% Predicate to_fn that converts a list into a function
to_fn(H, [H | []]).
to_fn(B, [H | T]) :- B =.. [H, A], to_fn(A, T).