let n = stdin.ReadLine() |> int let fb = function | x when x % 15 = 0 -> printfn "FizzBuzz" | x when x % 3 = 0 -> printfn "Fizz" | x when x % 5 = 0 -> printfn "Buzz" | x -> printfn "%d" x List.iter fb [1..n]