\begin{flushleft}
\hrulefill

\vspace*{-4mm}

\begin{alltt}
STk> (load "graph-view.stklos"){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define dhg (digraph '(1 2 3 4) '((1 3 2) (4 1) (4 1)))){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (describe dhg){\em{
\#[\(<\)mdhypergraph*\(>\) \#p666e58] is an instance of class \(<\)mdhypergraph*\(>\)
Slots are: 
     val = \{[1 2 3 4]  \{\(<\)1 3 2\(>\) \(<\)4 1\(>\) \(<\)4 1\(>\)\}\}
\#f} }
\end{alltt}
\begin{alltt}
STk> (define dhgv (make <graph-view> :graph dhg)){\em{
CopyGraphCmd: g2-\(>\)type(): 32

*** Error:
path-draw: expecting \(<\)graph-view\(>\)

*** Error:
layout-vertices: expecting \(<\)graph-view\(>\)
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define egs (set-edge->list (edges dhg))){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (set-attribute! 'weight 10 (caddr egs)){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define tree-edges (kruskal dhg)){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (map (lambda (x)
        (let* ((etab (slot-ref dhgv 'edge-table))
               (eg (hash-table-get etab x)))
            (slot-set! eg 'width 4))) (set-edge->list tree-edges)){\em{
(\#[undefined] \#[undefined])} }
\end{alltt}

\vspace*{-5mm}

\hrulefill
\end{flushleft}