path: root/testsuite/tests/simplCore/should_compile/T17673.hs

module T17673 where

facIO :: Int -> IO Int
facIO n | n < 2     = return 1
        | otherwise = do n' <- facIO (n-1); return (n*n')
{-# NOINLINE facIO #-}