Select Code to Download

pop 5
shift 2
shift 8
? 4

Best score: 7

shift 16
pop 13
...
? 2

Best score: 10

use strict;
use warnings;
...
print "? $n\n\n";

print "Best score: $total\n";