в основном главный профит sop имхо не в конкретном апи конкретных типов, а в том что он общий и для сумм, и для произведений
data A = A
data B = B
a :: NP Parser [A, B]
a = pure A :* pure B :* Nil
c :: NS Parser [A, B]
c = S (Z (pure B))
b :: Parser (NP I [A, B])
b = hsequence a
d :: Parser (NS I [A, B])
d = hsequence c