\begin{flushleft}
\hrulefill

\vspace*{-4mm}

\begin{alltt}
STk> (define g (graph '(1 2 3 4) '((1 2) (1 3) (1 4)))){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define (max-vert l)
        (cond ((null? l) 0)
              (#t (max (degree (car l)) (max-vert (cdr l)))))){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define-generic delta){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define-method delta ((g <graph*>))
        (let ((v (set-vertex->list (vertices g))))
                (max-vert v))){\em{
delta} }
\end{alltt}
\begin{alltt}
STk> (delta g){\em{
3} }
\end{alltt}

\vspace*{-5mm}

\hrulefill
\end{flushleft}