compound seq fn: sprint

sprint:
    description:
        sprint input-seq
        sprint["prefix"] input-seq
        sprint["prefix", "suffix"] input-seq
        print the input sequence
        if prefix and suffix are defined, then print them out too

    examples:
        sprint ssplit |ABCDEF>
            |A> . |B> . |C> . |D> . |E> . |F>

        sprint["pre: ", " :post"] ssplit |ABCD>
            pre: |A> . |B> . |C> . |D> :post

    see also:
        print