gap> r:=5;;
gap> K:=ReadPDBfileAsPureCubicalComplex(file,r);;      
gap> K:=ContractedComplex(K);;
gap> K!.properties;
[ [ "dimension", 3 ], [ "arraySize", [ 184, 186, 294 ] ] ]

gap> Display(K);
