my @sorted=
    map { RESTORE($_) }
    sort
    map { XFORM($_) }
    @list;