program gds;
var x,a:integer;
begin
readln(x);
for a=1 to x then 
begin
relay(200);
writeln('|');
end;
readln;
end.