1 2 3 4 5
applyN :: (a -> a) -> a -> Int -> a applyN f arg count | count <= 0 = f arg | otherwise = f (applyN f arg (pred count))
