proc main
   while 1
      yield
   endwhile
endproc