Pensieve Header: LazyKnots on August 23, 2011.

SetDirectory["C:\\drorbn\\AcademicPensieve\\2011-08\\w-Computations"];
<< "AlexanderBlobs-Program.m"

Outer[
(bracket[#1, #2]-> b[#1,#2])&,
{r[1,2],r[2,3],r[1,3]}, {r[1,2],r[2,3],r[1,3],r[2,1]}
] /. Diag[hs_, ar_] :> hs ar // MatrixForm