expensive [InlPrag=NOINLINE] :: Int -> Int
expensive =
        case expensive sc1 of { GHC.Types.I# x ->
                (case expensive x of { GHC.Types.I# x1 ->