# TNB frame at every point along a curve

How to plot a TNB frame at every point along a curve in Mathematica? That is,

Slightly modifying the first example in FrenetSerretSystem >> Neat Examples:
knot = KnotData["Trefoil", "SpaceCurve"];