var
  ch:char;
begin
  for ch:='a' to 'm' do
    write(ch);
      writeln;
         for ch:='n' to 'z' do
           write(ch);
             writeln;
               for ch:='z' downto 'n' do
                 write(ch);
                   writeln;
                      for ch:='m' downto 'a' do
                        write(ch);
                          writeln;
end.


/**************************************************************
	Problem: 1093
	User: admin
	Language: Pascal
	Result: Runtime Error
****************************************************************/