cps-interpreter/test/programs/record.cps

RECORD([(INT 1, OFFp 0), (INT 2, OFFp 0)], record,
  SELECT(0, VAR record, one,
    SELECT(1, VAR record, two,
      PRIMOP(+, [VAR one, VAR two], [result], [])
    )
  )
)