Awful lisp code for ethnocentrism simulation