examples/ssshd.scm: Add `--detach' option.

* examples/ssshd.scm (close-ports): New procedure.
  (main): Add `--detach' option.