GENERIC: sort-keys ( obj -- sortedseq )

M: object sort-keys >alist sort-keys ;

M: sequence sort-keys [ first ] sort-with ;

GENERIC: sort-values ( obj -- sortedseq )

M: object sort-values >alist sort-values ;

M: sequence sort-values [ second ] sort-with ;