program square;

var sep, input: string;
  i, j, n, m : integer;
  

begin
  write('sep:');
  readln(sep);
  
  write('str:');
  readln(input);
  
  for i:=1 to length(input) do write(input[i], ' ');
  writeln();
  for i:=2 to length(input)-1 do begin
    write(input[i]);
    for j:=1 to length(input)*2-3 do write (sep);
    writeln(input[length(input) - i + 1]);
  end;
  for i:=0 to length(input)-1 do 
    write(input[length(input)-i], ' ');
end.