alias clonechecker {
  var %c = $iif($1,$1,$chan),%h = ~clones. $+ %c,%l 1
  if ($me ison %c) {
    if (!$chan(%c).ial) { echo 14 -at Updating ial list, use this command again when its done. | who %c }
    hfree -w %h
    hmake %h 5
    while ($ialchan(*,%c,%l)) {
      var %m = $mask($ifmatch,2)
      hadd %h %m $addtok($hget(%h,%m),$ialchan(*,%c,%l).nick,32)
      inc %l
    }
    %l = 1
    while ($hfind(%h,* *,%l,w).data) {
      %m = $ifmatch
      echo 14 -at $+(,%l,.) $hget(%h,%m) $+([,$right(%m,-2),])
      inc %l
    }
    hfree %h
    dec %l
    echo 14 -at Found %l clone group $+ $iif(%l != 1,s) on %c
  }
}