
set seven "*ti.button22"
set eight "*ti.button23"
set nine "*ti.button24"
set multiply "*ti.button25"
set equal "*ti.button40"

proc click {number n} {
    callActionProc $number set()
    sleep 1000
    callActionProc $number digit($n)
    callActionProc $number unset()
}


