\begin{flushleft}
\hrulefill

\vspace*{-4mm}

\begin{alltt}
STk> (define g (graph '(1 2 3) '((1 2) (2 3) (3 1)))){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define h (graph '(1 2 3) '((1) (2 3) (1 2 3)))){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define h2 (graph (+ (vertices g) (vertices h))
                   (+ (edges g) (edges h)))){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (describe h2){\em{
\#[\(<\)muhypergraph*\(>\) \#p4eae78] is an instance of class \(<\)muhypergraph*\(>\)
Slots are: 
     val = \{[1 2 3]  \{\{1\} \{1 2\} \{1 2 3\} \{1 3\} \{2 3\} \{2 3\}\}\}
\#f} }
\end{alltt}

\vspace*{-5mm}

\hrulefill
\end{flushleft}