\begin{flushleft}
\hrulefill

\vspace*{-4mm}

\begin{alltt}
STk> (add-edges! es g){\em{
\#[\(<\)mset\(<\)edge*\(>\)\(>\) \#p4ea4ac]} }
\end{alltt}
\begin{alltt}
STk> (describe g){\em{
\#[\(<\)ubingraph*\(>\) \#p4ebf94] is an instance of class \(<\)ubingraph*\(>\)
Slots are: 
     val = \{[1 2 3 4]  \{\{1 2\} \{1 3\} \{1 4\} \{2 3\} \{2 4\} \{3 4\}\}\}
\#f} }
\end{alltt}

\vspace*{-5mm}

\hrulefill
\end{flushleft}