Select Code to Download

# shuffle - I'll do it in pure perl.

use strict;
use warnings;
...
3 4 2 1: 4000
4 1 2 3: 4031
4 3 1 2: 3972