(defun print-person (person)
  (format t "~%<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
       auto;mso-list:l2 level1 lfo1;tab-stops:list .5in'><a
       href=\"http://~a\">~a <span
       class=SpellE>~a</span></a> (<st1:place><st1:PlaceType>~a
        </st1:PlaceName></st1:place>)</li>~%" 
	    (web-address person) (first-name person) (last-name person) (affiliation person)))


(defun web-address (person)
  (nth 3 person))
(defun first-name (person)
  (nth 1 person)) 

(defun last-name (person)
  (nth 0 person)) 

(defun affiliation (person)
  (nth 2 person)) 

(setf *speakers*
  '(
( "Assaf" "Sami"     "MIT" "www-math.mit.edu/~sassaf/")
( "Berenstein" "Arkady" "University of Oregon" "www.uoregon.edu/~arkadiy/")
( "Berget" "Andy" "University of Minnesota" "www.math.umn.edu/~berg1116/")
( "Billera" "Lou" "Cornell" "www.math.cornell.edu/~billera/")
( "Klivans" "Carly" "University of Chicago" "people.cs.uchicago.edu/~klivans/")
( "Kujawa" "Jon" "University of Oklahoma" "www.math.uga.edu/~kujawa/")
( "Mason" "Sarah" "Davidson College" "math.berkeley.edu/~sarahm/")
( "Morin" "Matt" "University of British Columbia" "www.math.ubc.ca/~mjmorin/")
( "Orellana" "Rosa" "Dartmouth University" www.math.dartmouth.edu/~"orellana/")
( "Pevtsova" "Julia" "University of Washington" "www.math.washington.edu/~julia/")
( "Richmond" "Ed" "University of North Carolina" www.unc.edu/~erichmon/)
( "Tingley" "Peter" "UC Berkeley" math.berkeley.edu/~pwtingle/)
( "Vazirani" "Monica" "UC Davis" www.math.ucdavis.edu/~vazirani/)
( "Zabrocki" "Mike" "York University" www.math.yorku.ca/new/people/zabrocki.html)
))


(setf *organizers*
  '(
    ( "Billey" "Sara" "University of Washington" "www.math.washington.edu/~billey/")
    ( "van Willigenburg" "Stephanie" "University of British Columbia" "www.math.ubc.ca/~steph/")    
    ( "Kleshchev" "Alexander" "University of Oregon" "www.uoregon.edu/~klesh/")
    ))