source test.tcl
source alarm.tcl
alarm

popup 0 0 1
set elem_name "water"


#set_ana_alarm 1