A society simulator