Change mapcar to mapc for clarity in put-in-groups since unlikely to want return value, i.e. list of lists of groups.