//Pascal:
var a:integer;
s:string;
begin
readln(s); //ввод числа
if length(s)<>3 then exit;
writeln('Result');
writeln(s); //выводим первый вариант
for a:=1 to length(s)-1 do //перебераем
begin;
insert(s[length(s)],s,1); //добавить вперёд последний символ
delete(s,length(s),1); //удалить последний символ
writeln(s); //вывод получившейся строки
end;
end.