blob: 510bac57768a8bc18f8c85b75b2ebabd507ef182 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
#!/usr/local/opt/tcl-tk/bin/tclsh
#
# See https://theweeklychallenge.org/blog/perl-weekly-challenge-154
#
#
# Run as: tclsh ch-2.tcl
#
puts "2, 3, 5, 7, 37, 151, 3329, 23833, 13091204281, 3093215881333057"
|