johngg@shiraz:~/perl/Monks > ./spw1148625
1234 - too many consecutive digits
1243 - pass
4321 - too many consecutive digits
298761 - too many consecutive digits
4562 - pass
4568 - pass
4578 - pass
123 - pass
12 - pass
1 - pass
01234 - too many consecutive digits
01243 - pass
04321 - too many consecutive digits
0298761 - too many consecutive digits
04562 - pass
04568 - pass
04578 - pass
0123 - too many consecutive digits
012 - pass
01 - pass
a1234 - too many consecutive digits
1a234 - pass
12a34 - pass
123a4 - pass
1234a - too many consecutive digits
a1b2c3 - pass
a12b34c56 - pass
a1b2c3d - pass
a12b34c56d - pass
a123b45c6 - pass
a12b345c6 - pass
a123b45c6d - pass
a12b345c6d - pass
1a2 - pass
1ab2 - pass
12ab34 - pass
12abc34def - pass
12abc34def567 - pass
abc - pass
ab12c - pass
2345 - too many consecutive digits
234y - pass
01234 - too many consecutive digits
2356 - pass
johngg@shiraz:~/perl/Monks > ./spw1148625 4
1234 - pass
1243 - pass
4321 - pass
298761 - pass
4562 - pass
4568 - pass
4578 - pass
123 - pass
12 - pass
1 - pass
01234 - too many consecutive digits
01243 - pass
04321 - pass
0298761 - pass
04562 - pass
04568 - pass
04578 - pass
0123 - pass
012 - pass
01 - pass
a1234 - pass
1a234 - pass
12a34 - pass
123a4 - pass
1234a - pass
a1b2c3 - pass
a12b34c56 - pass
a1b2c3d - pass
a12b34c56d - pass
a123b45c6 - pass
a12b345c6 - pass
a123b45c6d - pass
a12b345c6d - pass
1a2 - pass
1ab2 - pass
12ab34 - pass
12abc34def - pass
12abc34def567 - pass
abc - pass
ab12c - pass
2345 - pass
234y - pass
01234 - too many consecutive digits
2356 - pass
johngg@shiraz:~/perl/Monks > ./spw1148625 2
1234 - too many consecutive digits
1243 - pass
4321 - too many consecutive digits
298761 - too many consecutive digits
4562 - too many consecutive digits
4568 - too many consecutive digits
4578 - pass
123 - too many consecutive digits
12 - pass
1 - pass
01234 - too many consecutive digits
01243 - too many consecutive digits
04321 - too many consecutive digits
0298761 - too many consecutive digits
04562 - too many consecutive digits
04568 - too many consecutive digits
04578 - pass
0123 - too many consecutive digits
012 - too many consecutive digits
01 - pass
a1234 - too many consecutive digits
1a234 - too many consecutive digits
12a34 - pass
123a4 - too many consecutive digits
1234a - too many consecutive digits
a1b2c3 - pass
a12b34c56 - pass
a1b2c3d - pass
a12b34c56d - pass
a123b45c6 - too many consecutive digits
a12b345c6 - too many consecutive digits
a123b45c6d - too many consecutive digits
a12b345c6d - too many consecutive digits
1a2 - pass
1ab2 - pass
12ab34 - pass
12abc34def - pass
12abc34def567 - too many consecutive digits
abc - pass
ab12c - pass
2345 - too many consecutive digits
234y - too many consecutive digits
01234 - too many consecutive digits
2356 - pass
johngg@shiraz:~/perl/Monks >