program Problem1;
Uses Crt;

Var
hearts:array[1..3] of string;
loop1,loop0,loop,count:Integer;
InputFile,Outputfile:Text;

begin
   Assign(InputFile,'Data1.txt');
   Reset(InputFile);

   Assign(OutputFile,'Out1.txt');
   Rewrite(OutputFile);

readln(inputfile,count);
hearts[1]:=' ~.~ ';
hearts[2]:='`   `';
hearts[3]:=' \./ ';
for loop1:= 1 to 5 do for loop:=1 to 3 do begin for loop0:=1 to count do write(output,hearts[loop]);writeln;end;

   close(OutputFile);
End.