(************************************************************
   at_exit.ml		Created      : Mon Aug  4 12:00:19 2003
  			Last modified: Mon Aug 04 12:04:27 2003
  Compile: ocamlc unix.cma at_exit.ml -o at_exit #
  FTP Directory: sources/ocaml #
************************************************************)
(**

  @author Takashi Masuyama <mamewo@dk9.so-net.ne.jp>

  ○×はただいま終了中です。
*)


let _ =
  at_exit (fun () -> print_endline "hello");
  Unix.sleep 5