proc main
   when elapsed 0 600 call closedown

   while 1
      yield
   endwhile
endproc

proc closedown
   pwexit
endproc