for 1 func = func(1)
for i func = do
    for(i - 1) func
    func(i)
    

p i 
    |(mod i 15)==0 = putStrLn "FizzBuzz"
    |(mod i 5)==0 = putStrLn "Buzz"
    |(mod i 3)==0 = putStrLn "Fizz"
    |otherwise = print i
    
main = do
   n <- readLn ::IO Integer
   for n p