(check-expect (next_move (make-boards B_BLANK
                                      (list (make-boards B_BLANK
                                                   (list (make-boards B_BLANK empty 6.1)
                                                         (make-boards B_BLANK
                                                                      (list (make-boards B_BLANK empty -6.1)
                                                                            (make-boards B_BLANK empty 7)) #false)) false)
                                            (make-boards B_BLANK
                                                         (list (make-boards B_BLANK empty 5.8)
                                                               (make-boards B_BLANK empty -5.8)) #false)) #false))
              (make-boards B_BLANK
                                                         (list (make-boards B_BLANK empty 5.8)
                                                               (make-boards B_BLANK empty -5.8)) #false))