1data RecordWithInfixSelector = Cons { (<>) :: Int -> Int }
2
3idRecord = Cons { (<>) = id }
4