macro  IVR(num1, num2, num3, num4)
{

  s=>          Background(IVR${CALLERIDNUM});
   1=>         Dial(Local/${num1}@outgoing/n);}
   2=>         Dial(Local/${num2}@outgoing/n);
   3=>         Dial(Local/${num3}@outgoing/n);
   4=>         Dial(Local/${num4}@outgoing/n);

}