Select Code to Download

$ perl -E '
    my @nums = qw{-1 0 1 9 10 11 19 20 21 23 49 50 51 55};
...
IN: 50  OUT: 46
IN: 51  OUT: 47
IN: 55  OUT: 51