{--------------------------
-----  ACCESSORS ----------
--------------------------}

-- | A list of a list of indices for each left opening arc
leftArcs :: [Indices]
leftArcs = [[0,7,15,22,30,37,45],[1,8,16,23,31,38,46],[2,9,17,24,32,39,47],
            [3,10,18,25,33,40,48],[4,11,19,26,34,41,42],[5,12,20,27,28,35,43],
            [6,13,14,21,29,36,44]]
leftArcs :: [Indices]
leftArcs = [[0,7,15,22,30,37,45],[1,8,16,23,31,38,46],[2,9,17,24,32,39,47],
            [3,10,18,25,33,40,48],[4,11,19,26,34,41,42],[5,12,20,27,28,35,43],
            [6,13,14,21,29,36,44]]
leftArcs = [[0,7,15,22,30,37,45],[1,8,16,23,31,38,46],[2,9,17,24,32,39,47],
            [3,10,18,25,33,40,48],[4,11,19,26,34,41,42],[5,12,20,27,28,35,43],
            [6,13,14,21,29,36,44]]