begin
  recordformat recfm (integer a, b)

  record (recfm) wreck
  record (recfm) name wrecked

  wrecked == wreck
  
  wreck_a = 1
  wrecked_a = 2
  
endofprogram