Maple program for cubical categories ?