halfres0=sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.se.(Subscript[δ, 1])[k].sse].sse.(Subscript[δ, 1])[ssekksse]+sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.se.(Subscript[δ, 2])[k].sse].sse.(Subscript[δ, 2])[ssekksse]+(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.(Subscript[δ, 1])[se].k.sse].sse.(Subscript[δ, 1])[ssekksse]-(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.(Subscript[δ, 1])[se].k.sse].sse.(Subscript[δ, 2])[ssekksse]+(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.(Subscript[δ, 2])[se].k.sse].sse.(Subscript[δ, 1])[ssekksse]+(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.(Subscript[δ, 2])[se].k.sse].sse.(Subscript[δ, 2])[ssekksse]-2 ssekksse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.se.(Subscript[δ, 1])[k].sse].sse.(Subscript[δ, 1])[ssekksse]-2 ssekksse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.se.(Subscript[δ, 2])[k].sse].sse.(Subscript[δ, 2])[ssekksse]-ssekksse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.(Subscript[δ, 1])[se].k.sse].sse.(Subscript[δ, 1])[ssekksse]+I ssekksse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.(Subscript[δ, 1])[se].k.sse].sse.(Subscript[δ, 2])[ssekksse]-I ssekksse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.(Subscript[δ, 2])[se].k.sse].sse.(Subscript[δ, 1])[ssekksse]-ssekksse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.(Subscript[δ, 2])[se].k.sse].sse.(Subscript[δ, 2])[ssekksse]-sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 1])[ssekksse].sse].sse.(Subscript[δ, 1])[ssekksse]-sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 2])[ssekksse].sse].sse.(Subscript[δ, 2])[ssekksse]+sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.se.(Subscript[δ, 1])[k].sse].sse.(Subscript[δ, 1])[ssekksse]+sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.se.(Subscript[δ, 2])[k].sse].sse.(Subscript[δ, 2])[ssekksse]+(1/2) sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.(Subscript[δ, 1])[se].k.sse].sse.(Subscript[δ, 1])[ssekksse]-(1/2) I sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.(Subscript[δ, 1])[se].k.sse].sse.(Subscript[δ, 2])[ssekksse]+(1/2) I sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.(Subscript[δ, 2])[se].k.sse].sse.(Subscript[δ, 1])[ssekksse]+(1/2) sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.(Subscript[δ, 2])[se].k.sse].sse.(Subscript[δ, 2])[ssekksse]+3 ssekksse (Subscript[D, 3])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 1])[ssekksse].sse].sse.(Subscript[δ, 1])[ssekksse]+3 ssekksse (Subscript[D, 3])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 2])[ssekksse].sse].sse.(Subscript[δ, 2])[ssekksse]-2 sse (Subscript[D, 3])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.k.sse.(Subscript[δ, 1])[ssekksse].sse].sse.(Subscript[δ, 1])[ssekksse]-2 sse (Subscript[D, 3])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.k.sse.(Subscript[δ, 2])[ssekksse].sse].sse.(Subscript[δ, 2])[ssekksse]-sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.se.(Subscript[δ, 1])[k].sse].sse.k.se.(Subscript[δ, 1])[k]-(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.se.(Subscript[δ, 1])[k].sse].sse.k.(Subscript[δ, 1])[se].k-(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.se.(Subscript[δ, 1])[k].sse].sse.k.(Subscript[δ, 2])[se].k-sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.se.(Subscript[δ, 2])[k].sse].sse.k.se.(Subscript[δ, 2])[k]+(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.se.(Subscript[δ, 2])[k].sse].sse.k.(Subscript[δ, 1])[se].k-(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.se.(Subscript[δ, 2])[k].sse].sse.k.(Subscript[δ, 2])[se].k-(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.(Subscript[δ, 1])[se].k.sse].sse.k.se.(Subscript[δ, 1])[k]+(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.(Subscript[δ, 1])[se].k.sse].sse.k.se.(Subscript[δ, 2])[k]-(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.(Subscript[δ, 2])[se].k.sse].sse.k.se.(Subscript[δ, 1])[k]-(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.(Subscript[δ, 2])[se].k.sse].sse.k.se.(Subscript[δ, 2])[k]+sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 1])[ssekksse].sse].sse.k.se.(Subscript[δ, 1])[k]+(1/2) sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 1])[ssekksse].sse].sse.k.(Subscript[δ, 1])[se].k+(1/2) I sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 1])[ssekksse].sse].sse.k.(Subscript[δ, 2])[se].k+sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 2])[ssekksse].sse].sse.k.se.(Subscript[δ, 2])[k]-(1/2) I sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 2])[ssekksse].sse].sse.k.(Subscript[δ, 1])[se].k+(1/2) sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 2])[ssekksse].sse].sse.k.(Subscript[δ, 2])[se].k;

remres0=(1/2) sse (Subscript[D, 0])[(1/k).(1/k).sse.k.se.(Subscript[δ, 1]^2)[k].sse]+(1/2) sse (Subscript[D, 0])[(1/k).(1/k).sse.k.se.(Subscript[δ, 2]^2)[k].sse]+(1/2) sse (Subscript[D, 0])[(1/k).(1/k).sse.k.(Subscript[δ, 1])[se].(Subscript[δ, 1])[k].sse]-(1/2) I sse (Subscript[D, 0])[(1/k).(1/k).sse.k.(Subscript[δ, 1])[se].(Subscript[δ, 2])[k].sse]+(1/2) I sse (Subscript[D, 0])[(1/k).(1/k).sse.k.(Subscript[δ, 2])[se].(Subscript[δ, 1])[k].sse]+(1/2) sse (Subscript[D, 0])[(1/k).(1/k).sse.k.(Subscript[δ, 2])[se].(Subscript[δ, 2])[k].sse]-(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 1]^2)[ssekksse].sse]-(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 2]^2)[ssekksse].sse]-sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.se.(Subscript[δ, 1]^2)[k].sse]-sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.se.(Subscript[δ, 2]^2)[k].sse]-(3/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.(Subscript[δ, 1])[se].(Subscript[δ, 1])[k].sse]+(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.(Subscript[δ, 1])[se].(Subscript[δ, 2])[k].sse]-(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.(Subscript[δ, 1]^2)[se].k.sse]-(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.(Subscript[δ, 2])[se].(Subscript[δ, 1])[k].sse]-(3/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.(Subscript[δ, 2])[se].(Subscript[δ, 2])[k].sse]-(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.(Subscript[δ, 2]^2)[se].k.sse]-sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 1])[k].se.(Subscript[δ, 1])[k].sse]-(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 1])[k].(Subscript[δ, 1])[se].k.sse]-(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 1])[k].(Subscript[δ, 2])[se].k.sse]-sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 2])[k].se.(Subscript[δ, 2])[k].sse]+(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 2])[k].(Subscript[δ, 1])[se].k.sse]-(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(Subscript[δ, 2])[k].(Subscript[δ, 2])[se].k.sse]-sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).se.(Subscript[δ, 1])[k].k.se.(Subscript[δ, 1])[k].sse]-(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).se.(Subscript[δ, 1])[k].k.(Subscript[δ, 1])[se].k.sse]-(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).se.(Subscript[δ, 1])[k].k.(Subscript[δ, 2])[se].k.sse]-sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).se.(Subscript[δ, 2])[k].k.se.(Subscript[δ, 2])[k].sse]+(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).se.(Subscript[δ, 2])[k].k.(Subscript[δ, 1])[se].k.sse]-(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).se.(Subscript[δ, 2])[k].k.(Subscript[δ, 2])[se].k.sse]-sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).(Subscript[δ, 1])[se].k.k.se.(Subscript[δ, 1])[k].sse]-(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).(Subscript[δ, 1])[se].k.k.(Subscript[δ, 1])[se].k.sse]-(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).(Subscript[δ, 1])[se].k.k.(Subscript[δ, 2])[se].k.sse]-sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).(Subscript[δ, 2])[se].k.k.se.(Subscript[δ, 2])[k].sse]+(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).(Subscript[δ, 2])[se].k.k.(Subscript[δ, 1])[se].k.sse]-(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).(Subscript[δ, 2])[se].k.k.(Subscript[δ, 2])[se].k.sse]+sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).(Subscript[δ, 1])[k].(1/k).se.k.k.se.(Subscript[δ, 1])[k].sse]+(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).(Subscript[δ, 1])[k].(1/k).se.k.k.(Subscript[δ, 1])[se].k.sse]+(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).(Subscript[δ, 1])[k].(1/k).se.k.k.(Subscript[δ, 2])[se].k.sse]+sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).(Subscript[δ, 2])[k].(1/k).se.k.k.se.(Subscript[δ, 2])[k].sse]-(1/2) I sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).(Subscript[δ, 2])[k].(1/k).se.k.k.(Subscript[δ, 1])[se].k.sse]+(1/2) sse (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.(1/k).(Subscript[δ, 2])[k].(1/k).se.k.k.(Subscript[δ, 2])[se].k.sse]+sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.k.sse.(Subscript[δ, 1]^2)[ssekksse].sse]+sse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).sse.k.k.sse.k.k.sse.(Subscript[δ, 2]^2)[ssekksse].sse];