SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\WKO4"];
<< AwCalculus.m;
$SeriesShowDegree=4;

(Subscript[R, t:(l|s)]^(+))[a_,b_] := (Subscript[E, t])[⟨a->LS[0], b->LS[LW@a]⟩, CWS[0]];
(Subscript[R, t:(l|s)]^(-))[a_,b_] := (Subscript[E, t])[⟨a->LS[0], b->-LS[LW@a]⟩, CWS[0]];

{λ,ω}=List@@(Subscript[R, s]^(+))[x,z]

λ // FullForm

λ // hσ[{x,y,z}->{"1","2","3"}]

λ // hσ[z,3] // FullForm

(Subscript[λ, z])

{λ1,ω1}=List@@(Subscript[R, s]^(+))[y,z]

λ1 // hσ[{x,y,z}->{"1","2","3"}]

a=5;
Table[a,{a,4}]

b=5;
c:=Table[b,{b,{1,2,b}}];
c

Es[3,4]

(Subscript[E, s])[5,6] // FullForm