if 0 {
# Chopper NCS013 communications
set chopper_controller(host) 137.157.202.130
set chopper_controller(port) 10000
set chopper_controller(user) NCS
set chopper_controller(password) NCS013


# CHOPPER
MakeChopper chopperController tcpdocho [params \
  host $chopper_controller(host) \
  port $chopper_controller(port) \
  nchopper 4 \
  timeout 30 \
  user $chopper_controller(user) \
  password $chopper_controller(password) \
]
ChopperAdapter chspeed chopperController speed 0 10
}
namespace eval ::chopper {
  command set_freq {float: frequency} {
    for {set i 0} {$i < $frequency} {incr i} {
      clientput chop
    }
  }
}