halfres0adj=(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.(Subscript[δ, 1])[k].se].(Subscript[δ, 1])[sekk]+(1/2) I se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.(Subscript[δ, 1])[k].se].(Subscript[δ, 2])[sekk]-(1/2) I se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.(Subscript[δ, 2])[k].se].(Subscript[δ, 1])[sekk]+(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.(Subscript[δ, 2])[k].se].(Subscript[δ, 2])[sekk]+(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 1])[k].k.se].(Subscript[δ, 1])[sekk]+(1/2) I se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 1])[k].k.se].(Subscript[δ, 2])[sekk]-(1/2) I se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 2])[k].k.se].(Subscript[δ, 1])[sekk]+(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 2])[k].k.se].(Subscript[δ, 2])[sekk]+(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 1])[se].k.k.se].(Subscript[δ, 1])[sekk]+(1/2) I se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 1])[se].k.k.se].(Subscript[δ, 2])[sekk]-(1/2) I se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 2])[se].k.k.se].(Subscript[δ, 1])[sekk]+(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 2])[se].k.k.se].(Subscript[δ, 2])[sekk]-sekkse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.(Subscript[δ, 1])[k].se].(Subscript[δ, 1])[sekk]-I sekkse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.(Subscript[δ, 1])[k].se].(Subscript[δ, 2])[sekk]+I sekkse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.(Subscript[δ, 2])[k].se].(Subscript[δ, 1])[sekk]-sekkse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.(Subscript[δ, 2])[k].se].(Subscript[δ, 2])[sekk]-sekkse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 1])[k].k.se].(Subscript[δ, 1])[sekk]-I sekkse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 1])[k].k.se].(Subscript[δ, 2])[sekk]+I sekkse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 2])[k].k.se].(Subscript[δ, 1])[sekk]-sekkse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 2])[k].k.se].(Subscript[δ, 2])[sekk]-se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1])[sekk].se].(Subscript[δ, 1])[sekk]-se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2])[sekk].se].(Subscript[δ, 2])[sekk]-sekkse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 1])[se].k.k.se].(Subscript[δ, 1])[sekk]-I sekkse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 1])[se].k.k.se].(Subscript[δ, 2])[sekk]+I sekkse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 2])[se].k.k.se].(Subscript[δ, 1])[sekk]-sekkse (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.(Subscript[δ, 2])[se].k.k.se].(Subscript[δ, 2])[sekk]+(1/2) se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.k.(Subscript[δ, 1])[k].se].(Subscript[δ, 1])[sekk]+(1/2) I se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.k.(Subscript[δ, 1])[k].se].(Subscript[δ, 2])[sekk]-(1/2) I se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.k.(Subscript[δ, 2])[k].se].(Subscript[δ, 1])[sekk]+(1/2) se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.k.(Subscript[δ, 2])[k].se].(Subscript[δ, 2])[sekk]+(1/2) se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 1])[k].k.se].(Subscript[δ, 1])[sekk]+(1/2) I se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 1])[k].k.se].(Subscript[δ, 2])[sekk]-(1/2) I se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 2])[k].k.se].(Subscript[δ, 1])[sekk]+(1/2) se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 2])[k].k.se].(Subscript[δ, 2])[sekk]+(1/2) se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 1])[se].k.k.se].(Subscript[δ, 1])[sekk]+(1/2) I se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 1])[se].k.k.se].(Subscript[δ, 2])[sekk]-(1/2) I se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 2])[se].k.k.se].(Subscript[δ, 1])[sekk]+(1/2) se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 2])[se].k.k.se].(Subscript[δ, 2])[sekk]+3 sekkse (Subscript[D, 3])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1])[sekk].se].(Subscript[δ, 1])[sekk]+3 sekkse (Subscript[D, 3])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2])[sekk].se].(Subscript[δ, 2])[sekk]-2 se (Subscript[D, 3])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.k.k.(Subscript[δ, 1])[sekk].se].(Subscript[δ, 1])[sekk]-2 se (Subscript[D, 3])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.k.k.(Subscript[δ, 2])[sekk].se].(Subscript[δ, 2])[sekk]+(1/2) se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1])[sekk].se].se.k.(Subscript[δ, 1])[k]-(1/2) I se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1])[sekk].se].se.k.(Subscript[δ, 2])[k]+(1/2) se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1])[sekk].se].se.(Subscript[δ, 1])[k].k-(1/2) I se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1])[sekk].se].se.(Subscript[δ, 2])[k].k+(1/2) I se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2])[sekk].se].se.k.(Subscript[δ, 1])[k]+(1/2) se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2])[sekk].se].se.k.(Subscript[δ, 2])[k]+(1/2) I se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2])[sekk].se].se.(Subscript[δ, 1])[k].k+(1/2) se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2])[sekk].se].se.(Subscript[δ, 2])[k].k+(1/2) se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1])[sekk].se].se.(Subscript[δ, 1])[se].k.k-(1/2) I se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1])[sekk].se].se.(Subscript[δ, 2])[se].k.k+(1/2) I se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2])[sekk].se].se.(Subscript[δ, 1])[se].k.k+(1/2) se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2])[sekk].se].se.(Subscript[δ, 2])[se].k.k;

remres0adj=-(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1]^2)[sekk].se]-(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2]^2)[sekk].se]-(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.se.k.(Subscript[δ, 1]^2)[k].se]-(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.se.k.(Subscript[δ, 2]^2)[k].se]-se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 1])[k].(Subscript[δ, 1])[k].se]-(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 1]^2)[k].k.se]-se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 2])[k].(Subscript[δ, 2])[k].se]-(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 2]^2)[k].k.se]-se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 1])[se].k.(Subscript[δ, 1])[k].se]-se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 1])[se].(Subscript[δ, 1])[k].k.se]-(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 1]^2)[se].k.k.se]-se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 2])[se].k.(Subscript[δ, 2])[k].se]-se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 2])[se].(Subscript[δ, 2])[k].k.se]-(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.se.(Subscript[δ, 2]^2)[se].k.k.se]-(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1])[se].se.k.(Subscript[δ, 1])[k].se]+(1/2) I se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1])[se].se.k.(Subscript[δ, 2])[k].se]-(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1])[se].se.(Subscript[δ, 1])[k].k.se]+(1/2) I se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1])[se].se.(Subscript[δ, 2])[k].k.se]-(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1])[se].(Subscript[δ, 1])[se].k.k.se]+(1/2) I se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 1])[se].(Subscript[δ, 2])[se].k.k.se]-(1/2) I se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2])[se].se.k.(Subscript[δ, 1])[k].se]-(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2])[se].se.k.(Subscript[δ, 2])[k].se]-(1/2) I se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2])[se].se.(Subscript[δ, 1])[k].k.se]-(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2])[se].se.(Subscript[δ, 2])[k].k.se]-(1/2) I se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2])[se].(Subscript[δ, 1])[se].k.k.se]-(1/2) se (Subscript[D, 1])[(1/k).(1/k).(1/k).(1/k).se.k.k.(Subscript[δ, 2])[se].(Subscript[δ, 2])[se].k.k.se]+se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.k.k.(Subscript[δ, 1]^2)[sekk].se]+se (Subscript[D, 2])[(1/k).(1/k).(1/k).(1/k).(1/k).(1/k).se.k.k.se.k.k.(Subscript[δ, 2]^2)[sekk].se];