: word-style ( word -- style )
    dup "word-style" word-prop >hashtable [
        [
            [ presented set ]
            [ 
                [ parsing-word? ] [ delimiter? ] [ symbol? ] tri or or
                [ COLOR: DarkSlateGray foreground set ] 
                [ COLOR: black foreground set] if
            ] bi
        ] bind
    ] keep ;