1module Main where
2
3import Prelude
4import Effect.Console (log)
5import Partial.Unsafe (unsafePartial)
6
7main = do
8  let _ = unsafePartial partialTCO true 1000000
9  log "Done"
10
11partialTCO :: Partial => Boolean -> Int -> Int
12partialTCO true 0 = 0
13partialTCO true n = partialTCO true (n - 1)
14