%parse(S) :- atom_chars(S,Chars), string(Chars, []). % parser6.pl
parse(S,Left) :- atom_chars(S,Chars), string(Chars, Left). % parser6.pl

string --> as.

as --> [], {writeln('empty match')}.
as --> [a], {writeln('got an a')}, as.
