fay-0.14.0.0: tests/tailRecursion.hs

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

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

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