%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Query generator with `performance restrictions':
% Length 4
examples :-
syllable([A,B,C,D]),
write([A,B,C,D]),
list2string([A,B,C,D],Syllable),
write(' & = '), write(Syllable),nl,
backtrack.
% Length 3
examples :-
syllable([A,B,C]),
write([A,B,C]),
list2string([A,B,C],Syllable),
write(' & = '), write(Syllable),nl,
backtrack.
list2string(CharList,String) :-
l2s(CharList,AsciiList),
name(String,AsciiList).
l2s([],[]) :- !.
l2s([CharHead|CharRest],[AsciiHead|AsciiRest]) :-
name(CharHead,[AsciiHead]),
l2s(CharRest,AsciiRest).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%