program main
  implicit none
  integer :: i, N

  read(*,*) N

  do i=1,N
    select case( mod(i, 15) )
      case (0)
        write(*,*) "FizzBuzz"
      case (3,6,9,12)
        write(*,*) "Fizz"
      case (5,10)
        write(*,*) "Buzz"
      case default
        write(*,*) i
    end select
  end do
end program main