Function Print-Separated-Strings

( print-separated-strings < strm > < separator > &rest < lists > )