main = do
    putStrLn "Sudoku hard2"
    printSudoku hard2
    putStrLn "8 Queens"
    print $ runFD $ nQueens 8 >>= labelling
    -- putStrLn "send + more = money"
    -- print $ zip ['s', 'e', 'n', 'd', 'm', 'o', 'r', 'y'] sendMoreMoney
main = do
    putStrLn "Sudoku hard2"
    printSudoku hard2
    putStrLn "8 Queens"
    print $ runFD $ nQueens 8 >>= labelling
    -- putStrLn "send + more = money"
    -- print $ zip ['s', 'e', 'n', 'd', 'm', 'o', 'r', 'y'] sendMoreMoney
main = do
    putStrLn "Sudoku hard2"
    printSudoku hard2
    putStrLn "8 Queens"
    print $ runFD $ nQueens 8 >>= labelling
    -- putStrLn "send + more = money"
    -- print $ zip ['s', 'e', 'n', 'd', 'm', 'o', 'r', 'y'] sendMoreMoney