{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedRecordDot #-}
{-# LANGUAGE DataKinds #-}
#define print(x) in putStrLn x
import GHC.Records
instance GHC.Records.HasField "length" String String where getField=const"24 hours"
main=let 
 day = "Monday"
 x = day.length
 print(x)