! Paste this into listener and ``save``.

    \ listener-streams dup reset [
        [
            [ [ 16 >>size ] change-font ]
            [ H{ { font-size 16 } } swap make-span-stream ] bi*
        ] append
    ] annotate