(loop for char across (the simple-string (find-message channel)) do (write-char char stream))
Go to the first, previous, next, last section, table of contents.