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