reflect(R,L,p)
i1 : R = rootSystemB(4) o1 = RootSystem{...8...} o1 : RootSystem
i2 : p = halfSumOfRoots(R) o2 = | 1 | | 1 | | 1 | | 1 | o2 : Weight
i3 : reflect(R,{1,2,3,4},p) o3 = | -4 | | 1 | | 1 | | 3 | o3 : Weight