Select Code to Download

#!/usr/bin/tclsh
# vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4:
...
foreach l $output {
    puts $l
}

$ ./11104071-perl.pl
2 2 2 2 2 2 2 2 2 2
...
2 3 5 5 5
3 3 3 3 3 5
5 5 5 5

$ ./11104071-tcl.tcl
2 2 2 2 2 2 2 2 2 2
...
2 3 5 5 5
3 3 3 3 3 5
5 5 5 5