anchor.diff:            (<:div :class "field"
                    (<:label :for "where" (<:ah "Where are they now?"))
                    (<:select :id "where" :name "where"
  +                           (<:option :value "" :selected "selected" (<:ah "Choose current location..."))
                              (<:option :value "midway" "Midway Area")
                              (<:option :value "downtown" "Downtown Minneapolis")
                              (<:option :value "dinkytown" "Dinkytown Neighborhood")
  
positive.code:       (<:div :class "field"
               (<:label :for "origin" (<:ah "Where from?"))
               (<:select :id "origin" :name "origin"
                         (<:option :value "local" (<:ah "Local -- is from the Twin Cities area."))
                         (<:option :value "state" (<:ah "Minnesotan -- not from the Cities, but still from the state."))
                         (<:option :value "midwest" (<:ah "Midwestern -- hails from elsewhere in the American Midwest."))
  
negative.code:       (<:div :class "field"
               (<:label :for "parents" (<:ah "Number of parents"))
               (<:select :id "parents" :name "parents"
                         (<:option :value "" :selected "selected" (<:ah "Choose parents..."))
                         (<:option :value "none" "None")
                         (<:option :value "one" "One")
                         (<:option :value "two" "Two")
                         (<:option :value "more" "More than two")))
        (<:div :class "field"
               (<:label :for "siblings" (<:ah "Number of siblings"))
               (<:select :id "siblings" :name "siblings"
                         (<:option :value "" :selected "selected" (<:ah "Choose siblings..."))
                         (<:option :value "none" "None")
                         (<:option :value "one" "One")
                         (<:option :value "two" "Two")
                         (<:option :value "three" "Three")
                         (<:option :value "more" "More than three")))
        (<:div :class "field"
               (<:label :for "childhood-finances" (<:ah "Financial class"))
               (<:select :id "childhood-finances" :name "childhood-finances"
                         (<:option :value "" :selected "selected" (<:ah "Choose class..."))
                         (<:option :value "poor" "Poor")
                         (<:option :value "working-class" "Working Class")
                         (<:option :value "middle-class" "Middle Class")
                         (<:option :value "upper-class" "Upper Class"))))))
  
  (defun cc-later-life ()
  