module KeepCafsBase (x) where

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