path: root/testsuite/tests/rts/KeepCafsBase.hs

module KeepCafsBase (x) where

x :: Int
x = last [1..1000]