program star;
uses CRT,Graph;
var
  a,b:integer;

begin
  for a:=1 to 999 do
  begin
    b:=random(1000)+1 ;
    case b of
    1..134:write(' ');
    135..532:write('*');
    533..999:write(' ');
    end;

  end;
  readln;
end.