# test of autoindent from ased editor
        # written on Windows XP on eTCL
        # Graphics program to mimic Iching numbers on Chou bronzes
        # working under TCL version 8.5.6 and eTCL 1.0.1
        # gold on TCL WIKI , 17Jul2010
        package require Tk
        proc lpick L {lindex $L [expr int(rand()*[llength $L])];}
        set lister { 5  6 6 6 6 6 6 7 7 7  8 8 1 1 1 1 1 1 1 1 1 1 1}
        proc transnumber {lister} {
            set choutext [list ]
            foreach item $lister {
                if { $item == 1 } {lappend choutext \u4E00}
                if { $item == 5 } {lappend choutext \u3024}
                if { $item == 6 } {lappend choutext \u516D}
                if { $item == 7 } {lappend choutext \u4E03}
                if { $item == 8 } {lappend choutext \u516B}
                if { $item >= 9 } {lappend choutext ? }
            }
            return $choutext}
        proc transarabic {lister} {
            set choutext [list ]
            foreach item $lister {
                if { $item == 1 } {lappend choutext 1}
                if { $item == 5 } {lappend choutext 5}
                if { $item == 6 } {lappend choutext 6}
                if { $item == 7 } {lappend choutext 7}
                if { $item == 8 } {lappend choutext 8}
                if { $item >= 9 } {lappend choutext ? }
            }
            return $choutext}
        proc transodd {lister} {
            set choutext [list ]
            foreach item $lister {
                if { $item == 1 } {lappend choutext \u4e00 }
                if { $item == 5 } {lappend choutext \u4e00 }
                if { $item == 6 } {lappend choutext "- -"}
                if { $item == 7 } {lappend choutext \u4e00 }
                if { $item == 8 } {lappend choutext "- -"}
                if { $item >= 9 } {lappend choutext ? }
            }
            return $choutext}
        set listx [ transnumber $lister ]
        proc chou_bronzes  {w state3} {
            global listx lister
            if { $state3 == 1 } {set listx [ transnumber $lister ]}
            if { $state3 == 2 } {set listx [ transarabic $lister ]}
            if { $state3 == 3 } {set listx [ transodd $lister ]}
            set yy 100
            set font3 {Hevetica 35}
            set font5 {Hevetica 150}
            set lister { 5 5 6 6 6 6 6 6 7 7 7 7 8 8 1 1 1 1 1 1 1 1 1 }
            $w create rect 150 50 250 400 -fill gold
            $w create poly 445 60 475 65 475 100 445 120 -fill tan
            # $w create text 200 400 -text u2617  -tags "text" -fill tan -font $font5
            foreach i {1 2 3 4 5 6 } {
                $w create text 200 $yy -text [lpick $listx ]  -tags "text"  -font $font3
                incr yy 50
            }
        }
        proc clrcanvas {w} {
            $w delete  "all"
        }
        proc leave {w} {
            exit
        }
        proc board {w} {
            #set state3 1
            #set state2 1
            clrcanvas $w
            . configure -background orange -highlightcolor brown -relief raised -border 30
            $w configure -bg tan
        }
        #: Main :
        frame .f1
        frame .f2
        pack  .f1 .f2
        set maxX 400
        set maxY 450
        set y      0
        set x1 120
        set x2 150
        set y1  50
        set y2  80
        canvas  .cv -width $maxX -height $maxY  -bg tan
        pack    .cv -in .f1
        button  .b0 -text "clear" -command { clrcanvas .cv }
        button  .b5 -text "chou_bronzes"   -command {clrcanvas .cv; chou_bronzes   .cv 1 }
        button  .b6 -text "arabic"   -command { clrcanvas .cv; chou_bronzes   .cv 2 }
        button  .b7 -text "regular"   -command { clrcanvas .cv; chou_bronzes   .cv 3}
        button  .b8 -text "exit"   -command {leave   .cv }
        pack .b0  .b5  .b6 .b7 .b7 .b8 -in .f2  -side left -padx 2
        board   .cv
        #catch {console show}
        wm title . " Chinese Iching Hexagrams on Chou Bronzes "

        # written on Windows XP on eTCL
        # working under TCL version 8.5.6 and eTCL 1.0.1
        # program for eTCL console
        # examine sequences, prob. subroutines for mimic sequence of bronze 
        # gold on TCL WIKI , 17Jul2010
  console show
     proc calculation {  facen }  { 
     # prob. subroutines for mimic sequence of bronze 
     # prob. is throw combos of eg. "7" over all possible throws
     set lister  {5  6 6 6 6 6 6 7 7 7  8 8 1 1 1 1 1 1 1 1 1 1}
     set ee [llength  $lister ]
     set kk [ llength [ lsearch -all $lister $facen ] ]
     set prob [ expr { ($kk*1.) / $ee  } ]
     return $prob
     }
          set limit 12
          for { set i 1 } { $i <= $limit }  { incr i } {
          lappend listxxx $i 
          lappend listxxx [ calculation  $i ]
          puts " $i [ calculation  $i ] "
          }
     #end
   output.
 1 0.45454545454545453 
 2 0.0 
 3 0.0 
 4 0.0 
 5 0.045454545454545456 
 6 0.2727272727272727 
 7 0.13636363636363635 
 8 0.09090909090909091 
 9 0.0 
 10 0.0 
 11 0.0 
 12 0.0 
  #end

  1% proc pi {} {expr acos(-1)}
  2% proc mac {aa} { regexp {.(\d+)} $aa -> bb;return $bb }
  3% mac [pi]
  141592653589793

Now we have a short mantissa for testing and there are websites that will give pi with more digits.
 
  set sequence3 [ split {14159265358979323846264338327950288419716939937} "" ]
  
   2% split {14159265358979323846264338327950288419716939937} "" 
   1 4 1 5 9 2 6 5 3 5 8 9 7 9 3 2 3 8 4 6 2 6 4 3 3 8 3 2 7 9 5 0 2 8 8 4 1 9 7 1 6 9 3 9 9 3 7
    # Sequence for combos of 2 6-sided dice. sample space is 36.
    {3 4 5 6 7 8 4 5 6 7 8 9 5 6 7 8 9 10 6 7 8 9 10 11 7 8 9 10 11 12}
      sequence of one 6-sided dice, turned in numberic order.
      { 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6 1 2 3 4 5 6}
      honest die
      {2 5 1 6 4 3 5 3 2 1 5 2 1 3 6 1 6 1 3 1 4 1 4 3 5 2 4 1 6 6}
      loaded die in favor of 5
      {5 6 1 6 3 5 5 4 6 2 5 4 6 6 4 3 4 3 1 1 2 5 2 1 2 5 1 4 3 5}
      
     sequence for 2-sided coin, ready for shuffle.1 for  head, 2 for tail

     {1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1}
     honest coin , 1 head, 2 for tail
     {1 2 2 2 1 1 2 1 1 1 2 1 2 1 2 1 2 1 2 1 2 2 1 1 1 2 2 1 1 2 2 1 2}
     dishonest coin loaded for 1 (heads)
     2 1 2 1 1 1 2 2 2 1 2 2 1 1 1 1 2 2 1 2 1 1 2 1 1 2 1 1 1 1 1 2 1
     another dishonest coin , loaded for 2 (tails),
     1 for  heads, 2 for tails
     {1 2 2 1 2 1 1 1 2 2 2 2 1 1 2 2 1 2 2 1 1 2 1 1 2 2 2 2 1 1 2 2 2}
     combos for three  2-sided stick dice, marked 1 and 2
     sample space is 8.
     {3 4 4 5 4 5 5 6}
     combos for four 2-sided stick dice, marked 1 and 2
     sample space is 16.
     {4 5 5 6  5 6 6 5 7 5 6 6 7 6 7 7 8}
     combos for five 2-sided stick dice, marked 1 and 2
     sample space is 32.(use split here)
     { 56676768677877889677878797889899 10}