let () =
    let n = stdin.ReadLine() |> int

    seq {1..n}
    |> Seq.map (fun i ->
        async {
            return
                match i % 3 = 0, i % 5 = 0 with
                | true, false -> "Fizz"
                | false, true -> "Buzz"
                | true, true  -> "FizzBuzz"
                | _, _ -> string i })
    |> Async.Parallel
    |> Async.RunSynchronously
    |> Array.iter (printfn "%s")