Use native recursion in Haskell example