program main
  integer::N
  integer,parameter::b=LEN_TRIM("a")
  integer,parameter::a=b-b
  integer,parameter::c=b+b
  integer,parameter::d=c+b
  integer,parameter::e=d+b
  integer,parameter::f=e+b
  integer,parameter::g=f+b
  integer,parameter::h=g+b
  integer,parameter::i=h+b
  integer,parameter::j=i+b
  integer,parameter::k=j+b
  integer,parameter::m=j+d
  integer::l
  character(len=j),allocatable::s(:)
  character(len=e)::cf='(i )'
  read *,N
  allocate(s(N))
  write(cf(d:d),'(a)'),ACHAR(g*i)
  do l=b,N
     write(s(l),cf) l
     s(l) = adjustl(s(l))
  enddo
  s(d:N:d)="Fizz"
  s(f:N:f)="Buzz"
  s(d*f:N:d*f)="FizzBuzz"
  print '(a)',s
end program