\begin{flushleft}
\hrulefill

\vspace*{-4mm}

\begin{alltt}
STk> (define g (graph '(1 2 3) '((2 1) (3 2)))){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define dg (digraph '(1 2 3) '((2 1) (3 2)))){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (describe g){\em{
\#[\(<\)ubingraph*\(>\) \#p4f5720] is an instance of class \(<\)ubingraph*\(>\)
Slots are: 
     val = \{[1 2 3]  \{\{1 2\} \{2 3\}\}\}
\#f} }
\end{alltt}
\begin{alltt}
STk> (describe dg){\em{
\#[\(<\)dbingraph*\(>\) \#p4ed74c] is an instance of class \(<\)dbingraph*\(>\)
Slots are: 
     val = \{[1 2 3]  \{\(<\)2 1\(>\) \(<\)3 2\(>\)\}\}
\#f} }
\end{alltt}

\vspace*{-5mm}

\hrulefill
\end{flushleft}