go:-
  write('Indtast sætning: '), 
  read(Svar),
  nl, write(Svar), nl,
  string_to_list(Svar, Liste),
  try(Liste).

try(Liste):- 
  sentence(Liste), !,
  write('Sætningen er korrekt'), nl.
try(_):-
  write('Sætningen er forkert'), nl.

sentence(Liste):-
  word(Liste), !.
sentence(Liste):-
  append(Liste1, ListeX, Liste),
  append("_", Liste2, ListeX),
  sentence(Liste1),
  word(Liste2), !.

word(Liste):- 
  syllable(Liste), !.
word(Liste):-
  append(Liste1, ListeX, Liste),
  append(Liste2, Liste3, ListeX),
  syllable(Liste1),
  word(Liste2),
  syllable(Liste3), !.

syllable(Liste):-
  plosive(Liste), !.
syllable(Liste):-
  append(Liste1, Liste2, Liste),
  plosive(Liste1),
  stop(Liste2), !.
syllable(Liste):-
  append("a", Liste2, Liste),
  plosive(Liste2), !.
syllable(Liste):-
  append("a", Liste2, Liste),
  stop(Liste2), !.

plosive(Liste):-
  append(Liste1, "a", Liste),
  stop(Liste1), !.

stop("b").
stop("d").