\begin{flushleft}
\hrulefill

\vspace*{-4mm}

\begin{alltt}
STk> (define ms (mset-int 3 2 2 1)){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define s (set-int ms)){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define sq (sequence-int ms)){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define ms2 (+ ms s sq)){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define ms3 (^ ms s sq)){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define ms4 (- ms2 ms3)){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (describe ms2){\em{
\#[\(<\)mset\(<\)int*\(>\)\(>\) \#p4f5144] is an instance of class \(<\)mset\(<\)int*\(>\)\(>\)
Slots are: 
     val = \{1 1 1 2 2 2 2 2 3 3 3\}
\#f} }
\end{alltt}
\begin{alltt}
STk> (describe ms3){\em{
\#[\(<\)mset\(<\)int*\(>\)\(>\) \#p4f38b4] is an instance of class \(<\)mset\(<\)int*\(>\)\(>\)
Slots are: 
     val = \{1 2 3\}
\#f} }
\end{alltt}
\begin{alltt}
STk> (describe ms4){\em{
\#[\(<\)mset\(<\)int*\(>\)\(>\) \#p4f2a74] is an instance of class \(<\)mset\(<\)int*\(>\)\(>\)
Slots are: 
     val = \{1 1 2 2 2 2 3 3\}
\#f} }
\end{alltt}

\vspace*{-5mm}

\hrulefill
\end{flushleft}