hard :: Strategy
hard b le = do  l <- findSquareEdges b le
                if null l then do l2 <- findGoodEdges b le
                                  easy b (if null l2 then le else l2)
                else easy b l


-- STRATEGY HELPERS
hard :: Strategy
hard b le = do  l <- findSquareEdges b le
                if null l then do l2 <- findGoodEdges b le
                                  easy b (if null l2 then le else l2)
                else easy b l


-- STRATEGY HELPERS
hard b le = do  l <- findSquareEdges b le
                if null l then do l2 <- findGoodEdges b le
                                  easy b (if null l2 then le else l2)
                else easy b l


-- STRATEGY HELPERS