directed-cubical-0.1.0.0: Examples/sqPairFwd.hs

import Math.Topology.CubeCmplx.DirCubeCmplx
import Math.Topology.CubeCmplx.CornerReduce
import Control.DeepSeq

main = print $ sqPairFwd `deepseq` uncurry cmplxReduce $ sqPairFwd