tkTConst :: TT -> Endo [Stroke]
tkTConst = tk' (const False) (const (Endo id))
tkTConst :: TT -> Endo [Stroke]
tkTConst = tk' (const False) (const (Endo id))
tkTConst = tk' (const False) (const (Endo id))