funpow : int -> ('a -> 'a) -> 'a -> 'a
- funpow 3 tl [1,2,3,4,5]; > [4, 5] : int list
- funpow 0 tl [1,2,3,4,5]; > [1; 2; 3; 4; 5] : int list
- funpow 6 tl [1,2,3,4,5]; ! Uncaught exception: ! List.Empty