module Main (main) where
 
data RecordWithInfixSelector = Cons{(<>) :: Int -> Int}
idRecord = Cons{(<>) = id}