let all_groups:group list ref = ref []