ster :- repeat, nl, write('Podaj cel do realizacji: '), read(Cel), generow_rozw(Cel).

generow_rozw(Cel) :- call(Cel), write('Znalezione rozwiazanie:  '), write(Cel), nl, write('Czy generowac nastepne rozwiazanie (T/N):'), get(Odp), nl, (Odp = 78; Odp = 110).

generow_rozw(_) :- write('Brak innych rozwiazan '), nl.