procedure F(n: integer);
begin
  if n > 0 then begin
    F(n - 2);
    F(n - 1);
    F(n - 1);
  end;
  write('*');
end;

begin
  F(5);
end.