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-155 # # # Run as: tclsh ch-1.tcl # puts "3 5 7 13 17 19 23 37"