Evaluated proc sexoffendercard {{name {}} {email {}} {occupation {}} {eye {}} {hair {}} {location {}} {news {}}} {format [join $::sexoffendercard \n] [or $name [name]] [or $email [emailaddress]] [or $occupation [job_word]] [or $eye [eye_word]] [or $hair [hair_color_word]] [or $location [country]] [or $news [usenet]]}