data RecordWithInfixSelector = Cons { (<>) :: Int -> Int }

idRecord = Cons { (<>) = id }