function! s:main(input) abort
  let result = []

  for i in range(1, a:input[0])
    if i % 15 == 0
      call add(result, 'FizzBuzz')
    elseif i % 5 == 0
      call add(result, 'Buzz')
    elseif i % 3 == 0
      call add(result, 'Fizz')
    else
      call add(result, i)
    endif
  endfor

  return join(result, "\n")
endfunction

let s:input = getline(1, '$')
enew
put =s:main(s:input)
2,$print