\begin{flushleft}
\hrulefill

\vspace*{-4mm}

\begin{alltt}
STk> (define ms (mset-int 3 2 2 1)){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define sq (sequence-int 3 2 2 1)){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (cond ((< ms sq) 'seq-greater)
       (#t        'mset-lesseq)){\em{
seq-greater} }
\end{alltt}

\vspace*{-5mm}

\hrulefill
\end{flushleft}