Function Print-Prompt

Part of:

package kmrcl
( print-prompt < stream > )