uses crt;
var fin,fout:text;
var v : integer;
var z : integer;
var a : integer;

begin
clrscr;
 assign(fin,'H:\DATA1.txt');
  reset(fin);
 assign(fout,'H:\OUT1.txt');
  rewrite(fout);

  for z:=1 to 5 do
   begin
    readln(fin,a);
    writeln (a);

      for v:=1 to a do
        write (fout,' ~.~ ');
      writeln(fout,'');
      for v:=1 to a  do
        write (fout,'`   `');
      writeln(fout,'');
      for v:=1 to a do
         write (fout,' \./ ');
      writeln(fout,'');


   end;
   close (fout);
end.