\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> (describe sq){\em{
\#[\(<\)sequence\(<\)int*\(>\)\(>\) \#p507e10] is an instance of class \(<\)sequence\(<\)int*\(>\)\(>\)
Slots are: 
     val = \(<\)3 2 2 1\(>\)
\#f} }
\end{alltt}
\begin{alltt}
STk> (define sq2 (sequence-int ms)){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (describe sq2){\em{
\#[\(<\)sequence\(<\)int*\(>\)\(>\) \#p4fe1bc] is an instance of class \(<\)sequence\(<\)int*\(>\)\(>\)
Slots are: 
     val = \(<\)1 2 2 3\(>\)
\#f} }
\end{alltt}

\vspace*{-5mm}

\hrulefill
\end{flushleft}
