begin
   integer no options = 1

   routine get option(integer name opt)
      for opt = 1, 1, no options cycle
      repeat
   end

  integer x
  
  get option(x)

endofprogram