SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\Signatures"];
<< TL4BR.m
Timing[Monitor[
Table[β=BR[K];
plot=Plot[TLSFromSM[β,(E^(I t))], {t,0,2π},PlotLabel->K, PlotPoints->100], {K,AllKnots[{3,12}]}],
plot]]