:-object object_trafficlights : [bcilib].
  
  var id = 'tl'.
  var url = './-trafficlights.wrl'.
  var choice = 0.
  
  main:-
          loadURL(url),
          delay(3000),
          lights_1(2000).