gap> K:=ReadImageAsPureCubicalComplex(file,400);
Pure cubical complex of dimension 2.

gap> C:=ChainComplex(K);
Chain complex of length 2 in characteristic 0 . 

gap> Size(C); 
173243
