function dumb
  fprintf (stderr, "press Ctrl-C:\n")
  unwind_protect
    sleep (10)
    quit ()
  unwind_protect_cleanup
    disp ("out!")
  end_unwind_protect
endfunction
atexit("dumb")
unwind_protect
  quit ()
unwind_protect_cleanup
  fprintf (stderr, "me too!\n")
end_unwind_protect