ssign =  (\v _ e -> Assign v e) <$> pTVar <*> pTAssignSym <*> pExpr


pAssign =  (\v _ e -> Assign v e) <$> pTVar <*> pTAssignSym <*> pExpr
pAssign =  (\v _ e -> Assign v e) <$> pTVar <*> pTAssignSym <*> pExpr