var
    i,m,n,k,j: integer;
    x: char;
    a: array[1..5000]of char;
    f1,f2: text;
    b: real;
begin
    assign(f1,'z1.in');
    assign(f2,'z1.out');
    reset(f1);
    n:=0;i:=0;
    while not eof(f1) do
     begin
      while not eoln(f1) do
       begin
        inc(i);
        read(f1,x);
       if x=' ' then a[i]:='*' else a[i]:=x;
     end;
       readln(f1);
       end;
       a[i]:=a[i+1];
       writeln(a[16]);
    rewrite(f2);
    n:=i;
    b:=sqrt(n);
    writeln(n);
    k:=trunc(b);
    if k*k<n then m:=k+1;
    for i:=(n+1) to m*m do
     begin
      a[i]:='.';
     end;
    for i:=1 to m do
     begin
      j:=0;
      while j<=(m*m-1) do
       begin
        write(f2,a[j+i]);
        j:=j+m;
       end;
     end;
    close(f1);close(f2);
end.

фывлфыовлфыовлыовфыв
      ыфвыфвыфвфывывывывывыв