{-# LANGUAGE RecordWildCards #-} 
record = 1