# using pseudocode 
       # possible problem instances,  
      initialize algorithm_result = 1.
      assign value or storage array to various tokens.
      about 150 known tokens from various eras, loaded 5 or 6
      tally worth of picked tokens from storage box area.
      herd number of cows = N cow tokens
      herd number of bulls = N bull tokens     
      assign unique random tag to move items on canvas
      within square, add adjacent tokens from assigned values
      from squares above, add tally.
      from squares above, subtract square_a minus square_b for tally
      store to third square?
      from square a and square b on adjacent sides, multiply contents 
      put in square c in center
      how to reciprocate a stack of positive chips?
      are negative chips possible on counting board?
      # answer, yes on China stick numbers.
      save? tally to memory to one of 2 storage areas
      drag unwanted tokens to waste basket,
      but waste basket sticking and need extra brain power (from wiki ask?).
      check algorithm 
      check_sum = a+b+c+d+e  
      set answers and printout with resulting values 
      pseudocode: need test cases > small,medium, giant 
      pseudocode: need testcases within range of expected operation.
      pseudocode: are there any cases too small or large to be solved?

&|worth= |3600. | tag = lamb | tally_total= |3600.0|&
&|worth= |3600. | tag = lamb | tally_total= |7200.0|&
selected double click point mv xdat_81 ydat_205 obj_98569283 # value_3600. current 
nearest entity 33 mv xdat_81 ydat_205 obj_98569283 # value_3600. current
product of adjacent tokens 3600 X 3600 12960000 
1
mv xdat_169 ydat_199 obj_674367737 # value_3600. current
674367737
 with tag 30 31
 x y 176.0 204.0
selected double click point mv xdat_169 ydat_199 obj_674367737 # value_3600. current 
nearest entity 31 mv xdat_169 ydat_199 obj_674367737 # value_3600. current
product of adjacent tokens 3600 X 3600 12960000 

                # pretty print from autoindent and ased editor
                # Sumerian counting board Strategy
                # working under TCL version 8.5.6 and eTCL 1.0.1
                # program written on Windows XP on eTCL
                # gold on TCL WIKI, 10Mar2017
                package require Tk
                package require math::numtheory
                namespace path {::tcl::mathop ::tcl::mathfunc math::numtheory }
                set tcl_precision 17
                #! /bin/env tclsh
                console show
                global  xx1 yy2 xxx1 tally_picks
                set tally_picks 0 
                set grab 0
                set filex  ""
                set colorit blue
                set coloritx gold
                set xx 50
                set yy 50
                set xxx1 50
                set yyy1 50
                array set worth {lamb 3600. jar_oil 60. goat 10. ingot 1. garment .01666 cow_bull .0002777}
                set font9 { Helvetica 20}
                set font10 { Helvetica 40}
                proc wastebasket {w} {
                    set font9 { Helvetica 50}
                    $w  create rectangle 350 550 500 600 -fill beige -tag grid
                    $w  lower grid                    
                }                
                proc tokenize_lamb {tag} {
                    global font9 font10 colorit coloritx xx yy xxx1 yyy1
                .c create text [+ $xxx1 355 ] [+ $yyy1 35 ] -text "\u26AB" -font $font10  -fill $coloritx -tags $tag
                .c create text [+ $xxx1 355 ] [+ $yyy1 35 ] -text "\u2638" -font $font9  -fill $colorit -tags $tag
                }                
                proc tokenize_jar_oil {tag} {
                         global font9 font10 colorit coloritx xx yy xxx1 yyy1
 .c create text [+ $xxx1 355] [+ $yyy1 78 ] -text "\u26AB" -font $font10 -fill $coloritx -tags $tag
 .c create text [+ $xxx1 355] [+ $yyy1 78 ] -text "\u2617" -font $font9  -fill $colorit -tags $tag
                }                
                proc tokenize_goat {tag} {
                    global font9 font10 colorit coloritx xx yy xxx1 yyy1
                .c create text [+ $xxx1 355] [+ $yyy1 127] -text "\u26AB" -font $font10 -fill $coloritx -tags $tag
                .c create text [+ $xxx1 355] [+ $yyy1 127] -text "\u2744" -font $font9 -fill $colorit -tags $tag
                }                
                proc tokenize_ingot {tag} {
                                  global font9 font10 colorit coloritx xx yy xxx1 yyy1
                .c create text [+ $xxx1 355] [+ $yyy1 182] -text "\u26AB" -font $font10  -fill $coloritx  -tags $tag
                .c create text [+ $xxx1 355] [+ $yyy1 182] -text "\u26AB" -font $font9  -fill $colorit  -tags $tag
                }                
                proc tokenize_garment {tag} {
                          global font9 font10 colorit coloritx xx yy xxx1 yyy1
                .c create text [+ $xxx1 355] [+ $yyy1 243] -text "\u26AB" -font $font10  -fill $coloritx -tags $tag
                .c create text [+ $xxx1 355] [+ $yyy1 243] -text "\u2617" -font $font9  -fill $colorit -tags $tag
                }                
                proc tokenize_cow_bull {tag} {
                     global font9 font10 colorit coloritx xx yy xxx1 yyy1
                .c create text [+ $xxx1 355]  [+ $yyy1 303] -text "\u26AB" -font $font10  -fill $coloritx -tags $tag
                .c create text [+ $xxx1 355]  [+ $yyy1 303] -text "\u2735" -font $font9  -fill $colorit -tags $tag
                }                                
                set state2 1
                proc refreshgrid { w state2} {
                    global oscwidth oschorizontal colorite
                    global grid
                    global ind indx
                    set ind 0
                    set indx 0
                    set colorite blue
                    . configure -background orange -highlightcolor brown -relief raised -border 30
                    $w configure -bg tan
                    set dx 100    ;# pixels between adjacent vertical grid lines
                    set dy 100    ;# pixels between adjacent horizontal grid lines
                    set x0 50    ;# pixels between left of canvas and left of grid
                    set y0 50   ;# pixels between top of canvas and top of grid
                    #set win $w   ;# name of canvas widget
                    $w  create rectangle 350 50 500 500 -fill beige -tag grid
                    $w  lower grid
                    foreach i {0 3} {
                        $w create line [expr {$i * $dx + $x0}] $y0\
                                [expr {$i * $dx + $x0}] [expr {9 * $dy + $y0}] -width 2 -fill green -tag grid
                    }
                    for {set i 1} {$i < 4} {incr i} {
                        $w create line [expr {$i * $dx + $x0}] $y0\
                        [expr {$i * $dx + $x0}] [expr {9 * $dy + $y0}] -width 2 -fill blue -tag grid
                        }
                    for {set i 0} {$i < 10} {incr i} {
                        $w create line $x0 [expr {$i * $dy + $y0}]\
                        [expr {3 * $dx + $x0}] [expr {$i * $dy + $y0}] -width 2 -fill purple -tag grid
                        }
                        }                
                proc take_token {tag x y} {
                    global tokenx tokeny
                    set tokenx $x
                    set tokeny $y
                    tokenize_$tag token
                    .c raise token
                    .c bind $tag <B1-Motion> {drag_token %x %y}
                    .c bind $tag <ButtonRelease-1> "drop_token $tag %x %y"
                    }                
                proc drag_token {x y} {
                    global tokenx tokeny
                    .c move token [expr {$x - $tokenx}] [expr {$y - $tokeny}]
                    set tokenx $x
                    set tokeny $y
                    }                
                proc drop_token {tag x y} {
                    global grab worth numis xx1 yy2 xxx1 tally_picks
                    #.c delete token
                    set tally_picks [+ $tally_picks $worth($tag)]  
                    puts " &|worth= |$worth($tag) | tag = $tag | tally_total= |$tally_picks|&"
                    set tilename  [expr {int(rand()*1000000000.)}]
                    .c itemconfigure token  -tag [concat mv xdat_$x  ydat_$y obj_$tilename # $worth($tag) ]
                    }  
                   proc onDblClick {x y} {
                   # Canvas item selection by mouse click by brusch
                   set x [.c canvasx $x] ; set y [.c canvasy $y]
                   set i [.c find closest $x $y]
                   set t [.c gettags $i]
                   puts "nearest $i $t"
                   }             
                wm withdraw .
                wm geometry . 600x800
                wm resizable . 0 0                
                pack [canvas .c -width 600 -height 800 -bg orange ]                
                tokenize_lamb lamb
                .c bind lamb <ButtonPress-1> {take_token lamb %x %y}
                tokenize_jar_oil jar_oil
                .c bind jar_oil <ButtonPress-1> {take_token jar_oil %x %y}
                tokenize_goat goat
                .c bind goat <ButtonPress-1> {take_token goat %x %y}
                tokenize_ingot ingot
                .c bind ingot  <ButtonPress-1> {take_token  ingot %x %y}
                tokenize_garment garment
                .c bind garment  <ButtonPress-1> {take_token  garment %x %y}                
                tokenize_cow_bull cow_bull
                .c bind cow_bull  <ButtonPress-1> {take_token  cow_bull %x %y}                
                .c bind all <1> {set p(X) [.c canvasx %x]; set p(Y) [.c canvasy %y];set info " %x %y "}
                set haloo 50
                .c bind mv <B1-Motion> {mv .c %x %y}
                bind .c <Double-1> { onDblClick %x %y }
                .c bind mv <ButtonRelease-1> { crasher .c }
                proc crasher {w} {
                    foreach  item [$w  find overlapping  400 500 450 600 ] {
                        if {[$w type $item]=="oval"} {$w delete $item}
                        if {[$w type $item]=="text"} {$w delete $item}
                    }
                    }                
                proc mv {w x y} {
                    global p id
                    set x  [$w canvasx $x]
                    set y  [$w canvasy $y]
                    set id [$w find withtag current]
                    set numberx [$w  gettags current]
                    regexp {obj_(\d+)} $numberx -> tilex                    
                    puts "1"
                    puts $numberx
                    puts $tilex
                    puts " with tag [$w find withtag obj_$tilex ]"
                    foreach item [$w find withtag obj_$tilex ] {
                        $w move $item [expr {$x-$p(X)}] [expr {$y-$p(Y)}]
                        
                    }
                    puts " x y $x $y"
                    if { $y >= 20 && $y <= 70 } {
                        if { $x >= 20 && $x <= 70 } {$w delete obj_$tilex }
                    }                    
                    foreach  item [$w  find overlapping  400 500 550 600 ] {                        
                        if {[$w type $item]=="oval"} {$w delete $item}
                        if {[$w type $item]=="text"} {$w delete $item}
                    }                    
                    set p(X) $x; set p(Y) $y
                }
                wastebasket .c
                refreshgrid .c state2
                wm title . " Sumerian Counting Board Strategy "                
                after idle wm deiconify .
                .c configure -background orange -highlightcolor brown -relief raised -border 30
                .c configure -bg tan