Program ADSFGADSF;
uses crt;
var
   input,output:text;
   bal,count,counter:Integer;


Begin
assign(output,'Out1.txt');
rewrite(output);
assign(input,'Data1.txt');
reset(input);
For Counter:=1 to 5 do
Begin
Readln(input,Bal);

For count:=1 to bal do
    Write(Output,' ~.~ ');
Writeln(Output,'');
For count:=1 to bal do
    Write(Output,'`   `');
Writeln(Output,'');
For count:=1 to bal do
    Write(Output,' \./ ');
Writeln(Output,'');
end;
close(output);

End.