{-# OPTIONS_GHC -fplugin=Loopbreaker #-}

module Experiments where


fact :: Int -> Int
fact 0 = 1
fact n = n * fact (n - 1)
{-# INLINE fact #-}