I have written this small module to write the n(2S+1)LJ symbol
angsym[n1_, s1_, l1_, j1_] := Module[{n = n1, s = s1, l = l1, j = j1},
lsym = Piecewise[{{"S", l == 0}, {"P", l == 1}, {"D", l == 2}, {"F",
l == 3}}];
Print[Superscript[n + 1, 2 s + 1], Subscript[lsym, j1]]]
This code is working fine. But I want this code to write a single output to symbolize a reaction like: n1(2 S1+1)L1 J1 -> n2 (2 S2 +1)L2 J2 by using this module. I have tried
Print[angsym[n1,s1,l1,j1], "->", angsym[n2,s2,l2,j2]]
This does not work.