our $adjust_clocks_before_move = undef;
#our $adjust_clocks_before_move = sub {
# my ($white_clock_left, $black_clock_left, $move, $toplay) = @_;
our $adjust_clocks_before_move = undef;
#our $adjust_clocks_before_move = sub {
# my ($white_clock_left, $black_clock_left, $move, $toplay) = @_;