pStyle :: StyleName -> TT -> Endo [Stroke]
pStyle style = one . modStroke style . ts
pStyle :: StyleName -> TT -> Endo [Stroke]
pStyle style = one . modStroke style . ts
pStyle style = one . modStroke style . ts