examples/ssshd.scm: Handle `channel-request-env'.

* examples/ssshd.scm (handle-req-channel): Handle
  `channel-request-env'.
  (main): Improve handling of `request-channel'.