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
        # Over-21 Game Shell calculator
        # written on Windows XP on eTCL
        # working under TCL version 8.5.6 and eTCL 1.0.1
        # gold on TCL WIKI, 15oct2014
        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 {{} {dealer first card:} }
        lappend names {dealer second card:}
        lappend names {player first card: }
        lappend names {player second card :}
        lappend names {dealer score :}
        lappend names {player score : }
        lappend names {player need card dealt? < 0 or 1 > : }
        lappend names {winner declared < 0 or 1 >:}
        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 Over 21 Game Shell
            from TCL WIKI,
            written on eTCL "
            tk_messageBox -title "About" -message $msg }       
        proc lpick L {lindex $L [expr int(rand()*[llength $L])];}
        proc swapx { text } {
            #set text [string map [list $item $replacewith] $text] #RS
             set text [string map [list "A" "1.0"] $text] 
             set text [string map [list "J" "10.0"] $text] 
             set text [string map [list "Q" "10.0"] $text] 
             set text [string map [list "K" "10.0"] $text]
             return $text                  
                                                    }  
        proc calculate {     } {
            global answer2
            global side1 side2 side3 side4 side5
            global side6 side7 side8
            global testcase_number
            incr testcase_number 
            set list_cards { 1 2 3 4 5 6 7 8 9 10 J Q K A }
            set list_values { 1 2 3 4 5 6 7 8 9 10 10 10 10 1 }
            set side5 [* $side5 1. ]
            set side6 [* $side6 1. ]
            set side7 [* $side7 1. ]
            set side8 [* $side8 1. ]
            set side1  [ lpick $list_cards ]
            set side2  [ lpick $list_cards ]
            set side3  [ lpick $list_cards ]
            set side4  [ lpick $list_cards ]
            set side5 [+  [swapx $side1 ] [swapx $side2 ] ]
            set side6 [+  [swapx $side3 ] [swapx $side4 ] ]
            set side5 [* $side5 1. ]
            set side6 [* $side6 1. ]
            if { $side6 > 16. } { set $side7 0. } 
            if { $side6 < 16. } { set $side7 1. }              
            if { $side6 > $side5 && $side6 < 22. } { set $side8 1. }       
                                       }
        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
            console show;
            puts "%|table $testcase_number|printed in| tcl wiki format|% "
            puts "&|quantity|dealer first card value| comment, if any|& "
            puts "&|testcase number|$testcase_number| |&"
            puts "&| $side1 :|dealer first card|   |&"
            puts "&| $side2 :|dealer second card| |& "
            puts "&| $side3 :|player first card| |& "
            puts "&| $side4 :|player second card  |  |&"
            puts "&| $side5 :|dealer score |  |&"
            puts "&| $side6 :|player score |  |&"
            puts "&| $side7 :|player need card dealt? <0 or 1 >|  |&"
            puts "&| $side8 :|winner declared <0 or 1 > |  |&"
         }
        frame .buttons -bg aquamarine4
        ::ttk::button .calculator -text "Deal" -command { calculate   }
        ::ttk::button .test2 -text "Testcase1" -command {clearx;fillup 1.0 7.0 10.0 10.0   8.  20.0 0. 0.}
        ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 5.0 10.0 2.0 8.0   15.  10. 1. 0. }
        ::ttk::button .test4 -text "Testcase3" -command {clearx;fillup 4.00 5.0 5.0 6.0   9.0  11.0  1.0 0. }
        ::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 . "Over-21 Game Shell Calculator "