Program Lx;
Var
  n, m: Longint;
  a: Array[0..200, 0..200] Of Char;
  i, j: Longint;
Begin
  Readln(n);
  While (n <> 0) Do Begin
    m := 0;
    While Not(Eoln) Do Begin
      Inc(m);
      For i:=1 To n Do Read(a[m, i]); 
    End;
    For i:=1 To n Do
      For j:=1 To m Do Write(a[j, i]); 
    Writeln;
    Readln;
    Readln(n);
  End;
End.