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