begin
    integer I
    I = 42
    recordformatspec RECFM
    integer map {main} NEST1
      integer FILLER
      FILLER = 17
      own record (RECFM) name FRED
      RESULT == INTEGER(ADDR(FRED))
      end
    record (RECFM) name ANOTHER
    recordformat RECFM( c
    integer Q c
    )

    {main} NEST1 = 42
    WRITE({main} NEST1, 0)
    NEWLINE
    end
  end of file