lotusSolver :: [Int]  -- ^ the unsolved lotus puzze
            -> [Int]  -- ^ a solved puzzle
lotusSolver lts = doSolve 0 (possibleSolns 0 lts) lts
lotusSolver :: [Int]  -- ^ the unsolved lotus puzze
            -> [Int]
lotusSolver lts = doSolve 0 (possibleSolns 0 lts) lts
lotusSolver lts = doSolve 0 (possibleSolns 0 lts) lts