\begin{flushleft}
\hrulefill

\vspace*{-4mm}

\begin{alltt}
STk> (define m (list->mset-int '(1 2 2 3))){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (describe m){\em{
\#[\(<\)mset\(<\)int*\(>\)\(>\) \#p50b278] is an instance of class \(<\)mset\(<\)int*\(>\)\(>\)
Slots are: 
     val = \{1 2 2 3\}
\#f} }
\end{alltt}
\begin{alltt}
STk> (define s (list->set-int (mset-int->list m))){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (describe s){\em{
\#[\(<\)set\(<\)int*\(>\)\(>\) \#p500e50] is an instance of class \(<\)set\(<\)int*\(>\)\(>\)
Slots are: 
     val = \{1 2 3\}
\#f} }
\end{alltt}
\begin{alltt}
STk> (define sq (list->sequence-int '(3 1))){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (describe sq){\em{
\#[\(<\)sequence\(<\)int*\(>\)\(>\) \#p4ff7b8] is an instance of class \(<\)sequence\(<\)int*\(>\)\(>\)
Slots are: 
     val = \(<\)3 1\(>\)
\#f} }
\end{alltt}

\vspace*{-5mm}

\hrulefill
\end{flushleft}