Help for this page

Select Code to Download

Select or download this

# perl -w;
use strict;
...

print roll1($_),$/ for (2..12);