anchor.diff:      (<:div :class "field"
              (<:label :for "pronoun" (<:ah "Pronoun"))
              (<:select :id "pronoun" :name "pronoun"
  +                     (<:option :value "" "Choose pronoun...")
                        (<:option :value "she" "She")
                        (<:option :value "he" "He")
  -                     (<:option :value "they" :selected "selected" "They"))))
  +                     (<:option :value "they" "They"))))
      (<:fieldset
       (<:legend "Name")
       (text-input-field "first-name" "First Name")
  
positive.code:           (<:div :class "field"
                   (<:label :for "where" (<:ah "Where are they now?"))
                   (<:select :id "where" :name "where"
                             (<:option :value "midway" "Midway Area")
                             (<:option :value "downtown" "Downtown Minneapolis")
                             (<:option :value "dinkytown" "Dinkytown Neighborhood")
  
negative.code:      (<:div :class "field"
              (<:label :for "friends" (<:ah "Any friends?"))
              (<:select :id "friends" :name "friends"
                        (<:option :value "" :selected "selected" (<:ah "Choose friends..."))
                        (<:option :value "ronery" "No, character is all alone.")
                        (<:option :value "acquaintances" "Not really, just some acquaintances/coworkers and such.")
                        (<:option :value "tight" "Yeah, but just one, or a couple of very close friends.")
                        (<:option :value "social" "Yeah, the character has plenty of friends, but few are really close.")
                        (<:option :value "loved-by-everyone" "Yes. The character has a relatively big circle of acquaintances and close friends.")))
       (<:div :class "field"
              (<:label :for "so" (<:ah "Is there a special someone?"))
              (<:select :id "so" :name "so"
                        (<:option :value "" :selected "selected" (<:ah "Choose significant other..."))
                        (<:option :value "ronery" "No, the character is forever alone.")
                        (<:option :value "dating" "Kinda, currently seeing someone.")
                        (<:option :value "committed" "Yes. The character has been with someone for a while.")
                        (<:option :value "ball-and-chain"
                                  "Yes, the character is in a committed relationship and/or married."))))
      (<:fieldset
  