1 # example program: reading events from keyboard or mouse
 2 #
 3 # Keeps printing 'a' until you press a key or click on the mouse.
 4 
 5 def main [
 6   local-scope
 7   open-console
 8   {
 9     e:event, found?:bool <- check-for-interaction
10     break-if found?
11     print-character-to-display 97, 7/white
12     loop
13   }
14   close-console
15   $print e, 10/newline
16 ]