begin
  owninteger      io
  integer         i
  externalinteger ie
  integerarray    ia(0:9)
  integerfn       ifn
    result = 1
  end
  integermap      im
    result ==  io
  end
  routine         ir
  end
  recordformat    rf(integer i)
  record(rf)array  rec(0:9)
  switch          sw(0:9)


  io = 1
  comment io = 1
  ie = 1
  comment ie = 1
  ia(1) = 1
  comment ia(1) = 1
  i = ifn
  comment i = ifn(1)
  i = im
  comment i = im(1)
  rec(1)_i = 1
  comment rec(1)_i = 1
  sw(1):
  comment sw(1):
  ir

endofprogram