: frequency ( seq -- hashtable )
    H{ } clone tuck '[ 1 swap _ at+ ] each ;