\begin{flushleft}
\hrulefill

\vspace*{-4mm}

\begin{alltt}
STk> (load "graph-view.stklos"){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define konigsberg (graph '(a b c d) 
                           '((a c) (a c) (a d) (a d) (b c) (b d)))){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (describe konigsberg){\em{
\#[\(<\)mubingraph*\(>\) \#p63d0d4] is an instance of class \(<\)mubingraph*\(>\)
Slots are: 
     val = \{[a b c d]  \{\{a c\} \{a c\} \{a d\} \{a d\} \{b c\} \{b d\}\}\}
\#f} }
\end{alltt}
\begin{alltt}
STk> (define kview (make <graph-view> :graph konigsberg)){\em{
CopyGraphCmd: g2-\(>\)type(): 34

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

*** Error:
layout-vertices: expecting \(<\)graph-view\(>\)
\#[undefined]} }
\end{alltt}

\vspace*{-5mm}

\hrulefill
\end{flushleft}