(object
   #f
   ((write . args) '() )
   ((quit self)
    (format #t "exit_handler2~%")))
