\begin{flushleft}
\hrulefill

\vspace*{-4mm}

\begin{alltt}
STk> (add-vertex! 1 g){\em{
\#[\(<\)vertex*\(>\) \#p4f9698]} }
\end{alltt}
\begin{alltt}
STk> (add-vertex! 'apple g){\em{
\#[\(<\)vertex*\(>\) \#p4f92e4]} }
\end{alltt}
\begin{alltt}
STk> (add-vertex! "orange" g){\em{
\#[\(<\)vertex*\(>\) \#p4f8f90]} }
\end{alltt}
\begin{alltt}
STk> (describe g){\em{
\#[\(<\)ubingraph*\(>\) \#p4fe60c] is an instance of class \(<\)ubingraph*\(>\)
Slots are: 
     val = \{[1 apple orange]  \{\}\}
\#f} }
\end{alltt}

\vspace*{-5mm}

\hrulefill
\end{flushleft}