set increase1 {/ $lambs1 $sheep1 }
  set increase2 {/ $lambs2 $sheep2 }
  set percent {* {/ $lambs $sheep } 100.}
  set delta {abs {- $increase2  $increase1}}
  set scaleupx1  {*  {/ $lambs1 $sheep1 } 1000.}}
  set scaleupx2  {*  {/ $lambs2 $sheep2 } 1000.}}
  text substitute { and } to eTCL expressions
  fattening barley feed = sheep*days*feed_rate, 
  set taxinkind1 {* $sheep1 {/ 1. 10. } }
  Sumerian price in silver = [/ liters 300.]
  Sumerian price in liters grain = [* silver 300.] 
  # 1 silver piece = 1 gur = 300 liters of grain
  liters = [* volume_in_cubic_cm .001]
  price? = raw materials + labor  +  profit
  price? = raw materials + heat process
  price? = raw materials + labor 
  average price per unit  = revenue  / units sold

        # pretty print from autoindent and ased editor
        # Sumerian Sheep and Herd animals calculator
        # written on Windows XP on eTCL
        # working under TCL version 8.5.6 and eTCL 1.0.1
        # gold on TCL WIKI, 7oct2014
        package require Tk
        namespace path {::tcl::mathop ::tcl::mathfunc}
        frame .frame -relief flat -bg aquamarine4
        pack .frame -side top -fill y -anchor center
        set names {{} {sheep1:} }
        lappend names {lambs2:}
        lappend names {sheep2: }
        lappend names {lambs2:}
        lappend names {accounting period days (typical 60 days) :}
        lappend names {percentage 1: }
        lappend names {percentage 2 : }
        lappend names {total lambs in silver :}
        foreach i {1 2 3 4 5 6 7 8} {
            label .frame.label$i -text [lindex $names $i] -anchor e
            entry .frame.entry$i -width 35 -textvariable side$i
            grid .frame.label$i .frame.entry$i -sticky ew -pady 2 -padx 1 }
        proc about {} {
            set msg "Calculator for Sumerian Sheep and Herd Animals from TCL WIKI,
            written on eTCL "
            tk_messageBox -title "About" -message $msg }       
        proc calculate {     } {
            global answer2
            global side1 side2 side3 side4 side5
            global side6 side7 side8 
            global testcase_number
            global scaleupx1 scaleupx2 delta1
            global sheepbarley1 sheepbarley2
            global taxinkind1 taxinkind2
            incr testcase_number
            set side1 [* $side1 1. ]
            set side2 [* $side2 1. ]
            set side3 [* $side3 1. ]
            set side4 [* $side4 1. ]
            set side5 [* $side5 1. ]
            set sheep1 [* $side1 1. ]
            set lambs1 [* $side2 1. ]
            set sheep2 [* $side3 1. ]
            set lambs2 [* $side4 1. ]
            set workdays2 [* $side5 1. ]
            set fraction1 [/ $lambs1 $sheep1 ]
            set fraction2 [/ $lambs2 $sheep2 ]
            set percent1 [* [/ $lambs1 $sheep1 ] 100.]
            set percent2 [* [/ $lambs2 $sheep2 ] 100.]
            set delta1 [abs [- $lambs2 $lambs1] ]
            set scaleupx1  [*  [/ $lambs1 $sheep1 ] 1000. ] 
            set scaleupx2  [*  [/ $lambs2 $sheep2 ] 1000. ]
            set sheepbarley1 [* $sheep1 $workdays2 2. ] 
            set sheepbarley2 [* $sheep2 $workdays2 2. ] 
            set taxinkind1 [* $sheep1 [/ 1. 10. ] ]
            set taxinkind2 [* $sheep2 [/ 1. 10. ] ]
            set side5 [* $side5 1. ]
            set side6 $percent1 
            set side7 $percent2   
            set side8  [* [+ $lambs1 $lambs2 ] [/ 1. 2.] ]   }
        proc fillup {aa bb cc dd ee ff gg hh} {
            .frame.entry1 insert 0 "$aa"
            .frame.entry2 insert 0 "$bb"
            .frame.entry3 insert 0 "$cc"
            .frame.entry4 insert 0 "$dd"
            .frame.entry5 insert 0 "$ee"
            .frame.entry6 insert 0 "$ff" 
            .frame.entry7 insert 0 "$gg"
            .frame.entry8 insert 0 "$hh" 
             }
        proc clearx {} {
            foreach i {1 2 3 4 5 6 7 8 } {
                .frame.entry$i delete 0 end } }
        proc reportx {} {
            global side1 side2 side3 side4 side5
            global side6 side7 side8 
            global testcase_number
            global scaleupx1 scaleupx2 delta1
            global sheepbarley1 sheepbarley2 
            global taxinkind1 taxinkind2
            console show;
            puts "%|table $testcase_number|printed in| tcl wiki format|% "
            puts "&| quantity| value| comment, if any|& "
            puts "&| testcase number:| | $testcase_number|&"
            puts "&| $side1 :|sheep1| $side1 |&"
            puts "&| $side2 :|lambs1| $side2|& "
            puts "&| $side3 :|sheep2|$side3|& "
            puts "&| $side4 :|lambs2 |$side4 |&"
            puts "&| $side5 :|days time period|$side5 |&"
            puts "&| $side6 :|percent1|$side6 |&"
            puts "&| $side7 :|percent2 |$side7 |&"
            puts "&| $sheepbarley1 :| liters  fattening barley feed 1st flock    |$sheepbarley1|&"
            puts "&| $sheepbarley2 :| liters fattening  barley feed 2nd flock   |$sheepbarley1|&"
            puts "&| $taxinkind1 :|tax1 in kind|$taxinkind1 |&"
            puts "&| $taxinkind2 :|tax2 in kind |$taxinkind2 |&"
            puts "&| $side8 :|total lambs in silver pieces|$side8 |&"
            puts "&| $scaleupx1 :|scale up 1 |$scaleupx1  |&"
            puts "&| $scaleupx2 :|scale up 2 |$scaleupx2  |&"
            puts "&| $delta1 :|delta1 in abs |$delta1  |&"
        }
        frame .buttons -bg aquamarine4
        ::ttk::button .calculator -text "Solve" -command { calculate   }
        ::ttk::button .test2 -text "Testcase1" -command {clearx;fillup 100.0 80. 100.0 70.  15. 80. 70. 75.}
        ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 100.0 70. 100.0 60.  30. 70. 60. 65. }
        ::ttk::button .test4 -text "Testcase3" -command {clearx;fillup 100.0 80 100.0 40.   60.0 80. 40. 60. }
        ::ttk::button .clearallx -text clear -command {clearx }
        ::ttk::button .about -text about -command about
        ::ttk::button .cons -text report -command { reportx }
        ::ttk::button .exit -text exit -command {exit}
        pack .calculator  -in .buttons -side top -padx 10 -pady 5
        pack  .clearallx .cons .about .exit .test4 .test3 .test2   -side bottom -in .buttons
        grid .frame .buttons -sticky ns -pady {0 10}
        . configure -background aquamarine4 -highlightcolor brown -relief raised -border 30
        wm title . "Sumerian Sheep and Herd Animals Calculator "

  puts " %| testcase $testcase_number | value| units |comment |%"
  puts " &| volume| $volume| cubic meters |based on length $side1 and width $side2   |&"