program Program1;

Var
   num,loop,loop2:integer;
   input,output:text;

begin
Assign(Input,'Data1.txt');
Assign(Output,'Out1.txt');
Rewrite(output);
Reset(input);
For Loop:= 1 to 5 do begin
Readln(input,num);
  If num = 1 then begin
  Writeln(Output,' ~.~ ');
  Writeln(Output,'`   `');
  Writeln(Output,' \./ ');
  Writeln(output)
  end
  else
      If num = 2 then begin
      Writeln(Output,' ~.~  ~.~ ');
      Writeln(Output,'`   ``   `');
      Writeln(Output,' \./  \./ ');
      Writeln(output)
      end
      else
          If num = 3 then begin
          Writeln(Output,' ~.~  ~.~  ~.~ ');
          Writeln(Output,'`   ``   ``   `');
          Writeln(Output,' \./  \./  \./ ');
          Writeln(output)
          end
          else
              If num = 4 then begin
              Writeln(Output,' ~.~  ~.~  ~.~  ~.~ ');
              Writeln(Output,'`   ``   ``   ``   `');
              Writeln(Output,' \./  \./  \./  \./ ');
              Writeln(output)
              end
              else
                  If num = 5 then begin
                  Writeln(Output,' ~.~  ~.~  ~.~  ~.~  ~.~ ');
                  Writeln(Output,'`   ``   ``   ``   ``   `');
                  Writeln(Output,' \./  \./  \./  \./  \./ ');
                  Writeln(output);
                  end;

end;
Close(Output);
end.