kern :=  [[1, -1, 1]];
cubesused :=  [[[[1, 2], [1, 3], [1, 3], [2, 3]], [[1, 2], [1, 3]]], [[[1, 2], [1, 3], [1, 3], [2, 3]], [[1, 2], [2, 3]]], [[[1, 2],
[1, 3], [1, 3], [2, 3]], [[1, 3], [2, 3]]]];
imfin :=   [[1, -1, 1]];
kerfin :=  [[1, -1, 1]];
cubelist :=   [[[[1, 3], [1, 4], [2, 3], [2, 4], [3, 4]], [[1, 3], [2, 3], [2, 4]]], [[[1, 3], [1, 4], [2, 3], [2, 4], [3, 4]], [[1, 3
], [2, 3], [3, 4]]], [[[1, 3], [1, 4], [2, 3], [2, 4], [3, 4]], [[1, 3], [2, 4], [3, 4]]]];