sub canonical_list (%) {
    my $in = shift;

    map {$_,$in->{$_}}, sort keys %$in;
}