Select Code to Download

#! perl -slw
use strict;
...
3,1,3,0,0,3,1,7,3,8
0,6,7,0,8,9,4,8,4,8
0,2,0,3,7,4,6,8,4,5

c:\test>896650
1 :: 2
...
18 :: 3:1
19 :: 0:6
20 :: 0:3