{-# LANGUAGE GeneralizedNewtypeDeriving, DeriveDataTypeable #-} 
record = 1