begin
  recordformat F1(integerarray IA(1:10))
endofprogram