In[3]:= LexicalMap["**"<>#<>"**"&,"This is cool", BoundToken[TextType["Adjective"|"Verb"]]]
Out[3]= StringReplace[This is cool,FaizonZaman`LexicalCases`Private`iExpandPattern[StringExpression[FaizonZaman`LexicalCases`Private`LexicalPatternDelimiter[Start]]]:>(**<>#1<>**&)[FaizonZaman`LexicalCases`Abstractions`Private`match$]]