begin
  owninteger      io
  integer         i
  integername     in
  externalinteger ie
  integerarray    ia(0:9)
  integerfn       ifn(integer i)
    result = 1
  end
  integerfn       ifn2
    result = 1
  end
  integermap      im(integer i)
    result ==  io
  end
  integermap      im2
    result ==  io
  end
  routine         ir(integer n)
  end
  recordformat    rf(integer i)
  recordformat    rfa(integerarray ia(0:9))
  record(rfa)map   rm
    ownrecord(rfa) orec
    result == orec
  end
  record(rf)array  rec(0:9)
  switch          sw(0:9)
  
  sw(1):
  comment sw(1):

  io = 1
  comment io = 1

  ie = 1
  comment ie = 1
  
  ia(1) = 1
  comment ia(1) = 1
  
  i = ifn(1)
  comment i = ifn(1)
  
  i = ifn2
  comment i = ifn2
  
  i = im(1)
  comment i = im(1)
  
  in == im(1)
  comment in == im(1)
  
  im(1) = 1
  comment im(1) = 1
  
  im2 = 1
  comment im2 = 1
  
  rec(1)_i = 1
  comment rec(1)_i = 1
  
  ir(1)
  comment ir(1)
  
  in == ia(1)
  comment in == ia(1)
  
  i = ia(1)
  comment i = ia(1)
  
  i = rm_ia(1)
  comment i = rm_ia(1)
  
  in == rm_ia(1)
  comment in = rm_ia(1)
  
endofprogram