Scheme: Grouping keys of an associative list