reflect(R,L,r)
i1 : R = rootSystemB(4) o1 = RootSystem{...8...} o1 : RootSystem
i2 : r = simpleRoot(R,3) o2 = | 0 | | -1 | | 2 | | -2 | 4 o2 : ZZ
i3 : reflect(R,{1,2,3,4},r) o3 = | 1 | | 0 | | -1 | | 2 | 4 o3 : ZZ