square(_, L) :- L =:= 0.
square(S, L) :- 
    L =\= 0, !,
    writeln(S), rot(S, R), square(R, (L - 1)).

rot(S, Sr) :-
    string_chars(S, Cs),
    append([C], Ch, Cs),
    append(Ch, [C], Cr),
    string_chars(Sr, Cr).

yoba(S) :- string_length(S, L), square(S, L).

main :- yoba("АРГЕНТИНА МАНИТ НЕГРА"), halt.

:- main.