gap> L:=AcyclicSubcomplexOfPureCubicalComplex(K);
Pure cubical complex of dimension 2.

gap> D:=ChainComplexOfPair(K,L);
Chain complex of length 2 in characteristic 0 . 

gap> Size(D);
618
