print map("$_->[0] to $_->[1]\n", @$hist), "\n"
    if grep($_, @$st) == 8 and !$ok;