begin

  begin
    recordformat WRONG(real R)
  end

  recordformatspec RIGHT

  recordformat other(record (RIGHT) name MISTAKE)

  recordformat RIGHT(integer I)
  
endofprogram