{-# LANGUAGE UnboxedTuples #-} 
record = 1