Experimental educational implementation of CrossCat in Haskell - View it on GitHub