@@ -0,0 +1,14 @@
3+import ProjectM36.Relation
4+import ProjectM36.Tuple
5+import ProjectM36.Error
6+import ProjectM36.Relation.Show.CSV
7+import qualified Data.Map as M
8+import qualified Data.HashSet as HS
9+import qualified Data.ByteString.Lazy.Char8 as BS
12+ case matrixRelation 10 100000 of
13+ Right rel -> BS.putStrLn $ relationAsCSV rel
14+ Left err -> putStrLn (show err)