utwór z_liste__at( [ ], [ ]) :- !.

utworz_liste_at(Lancuch,[Słowo|Reszta]) :-
wybierz_slowo(Lancuch,Znaki_tw_slowo,Reszta_znakow),
name(Słowo,Znaki_tw_slowo),
utwórz_liste_at(Reszta_znakow,Reszta).

wybierz_slowo([32|Ogon],[],Ogon) :- !.

wybierz_slowo([],[],[]).

wybierz_slowo([Znak|Ogon],Znaki_tw_slowo,Reszta) :-znak_przestank(Znak),!,
wybierz_slowo(Ogon,Znaki_tw_sIowo,Reszta).

wybierz_slowo([Znak|Ogon1],[NowyZnak|Ogon2],Reszta):- wybierz_slowo(Ogon1,Ogon2,Res zta), zam_na_male(Znak,NowyZnak), !. 

znak_przestank(Znak) :- Znak =< 47.
znak_przestank(Znak) :- Znak >= 58,
Znak =< 64.
znak_przestank(Znak) :-.Znak >= 91,
Znak =< 96.
znak_przestank(Znak) :- Znak <= 123.

zam_na_male(Znak,NowyZnak) :- Znak >= 65,
Znak =< 90, NowyZnak is Znak+32.

zam_na_male(Znak,Znak) :- Znak < 65.
zam_na_male(Znak,Znak) :- Znak > 90.