program q1;
 uses crt;
 var
 count,counter,x,y,z,i,j,k:integer;
 inp : array[1..5] of integer;
 textin,textout:text;
 b:boolean;
 begin
    assign(textin, 'DATA1.txt');
    reset(textin);
    assign(textout,'OUT1.txt');
    rewrite(textout);
    x:=0;
    b:=true;
    for count:=1 to 5 do
      begin
        readln(textin,inp[count]);
        y:=inp[count]+(inp[count]-1);
        for counter := 1 to y do
          begin
          if b = true then
            begin
              if x< inp[count] then
              x := x+1;
            end;
          if x=inp[count] then
            begin
            x := x;
            b:=false;
            end;
          if b= false then
            begin
              if x < inp[count] then
              x:=x-1;
            end;
          for z := 5 to 1 do
            begin
              i :=i+1;
              if z > x then
              begin
              gotoxy(i,y);
              write('.');
              end
              else
              begin
              gotoxy(i,y);
              write('X');
              end;
          end;
          close(textout);
      end;



end;
end.