typeof tmrMain = Timer;;
typeof iCount  = I;;

fun cbTick(tmr, pri_param, sec_param_1, sec_param_2, sec_param_3) =
  _fooS strcatn (itoa iCount)::" "::pri_param::" "::sec_param_1::" "::sec_param_2::" "::sec_param_3::nil;
  set iCount = iCount + 1;
  if (iCount == 10) then
    _deltimer tmrMain
  else
    0;
  0;;

fun main() = 
   _showconsole;
   _fooS "***********************************";

   set iCount = 0;
   set tmrMain = _starttimer _channel 100;
   _rfltimer tmrMain (mkfun3 (mkfun4 (mkfun5 @cbTick "secondary_param_3") "secondary_param_2") "secondary_param_1") "primary_param";

   _fooS "***********************************";
   0;;