alias perform.sync {
 var %i = 1
 while ($hget(perform,%i).data != $null) {
  if ($me !ison $v1) { join $v2 | var %chans = $addtok(%chans,$gettok($v2,1,32),44) }
  inc %i
 }
 var %i = 1
 while ($chan(%i) != $null) {
  var %chan = $v1
  if (!$istok(%chan,%chans,44)) { part %chan Channel not in perform! }
  inc %i
  }
}