[sub]
alias huggle {
  var %nicks
  var %i 1
  while (%i <= $nick(#,0)) {
    %nicks = $addtok(%nicks,$nick(#,%i),32)
    inc %i
  }
  msg # 5,1\1,5\4,5\5,4\0,4\4,0\0,0-0,15\14,15\15,14\1,14\14,1\7,1 Huggles %nicks 14,1/1,14/15,14/14,15/0,15/0,0-4,0/0,4/5,4/

}
[/sub]