Implement `guile_ssh_channel_write' procedure.

* src/channel-func.c (guile_ssh_channel_write): New procedure.
* src/channel.scm: Likewise.