alias mv
{
@chn = [$0]?[$0]:C
fe ($remw($N $onchannel($chn))) x1 x2 x3 x4
   {
   mode $chn +vvvv $x1 $x2 $x3 $x4
   }
}