fay-0.10.1.0: tests/tailRecursion.hs

-- | This is to test tail-recursive calls are iterative.
import           Language.Fay.Prelude

main = do
  print (sumTo 100000 0 :: Double)

sumTo 0 acc = acc
sumTo n acc = sumTo (n - 1) (acc + n)