purescript-0.9.1: examples/passing/InferRecFunWithConstrainedArgument.purs

module Main where

import Prelude
import Control.Monad.Eff.Console (log, logShow)

test 100 = 100
test n = test(1 + n)

main = do
  logShow (test 0)
  log "Done"