alias indent {
  set %len $2
  indent2 $1-
}
alias indent2 {
  var %a 1,%b 0
  while (%a <= $nick($1,0)) {
    if ($len($nick($1,%a).pnick) > %b) {
      var %b $v1
    }
    inc %a
  }
  unset %locate
  set %LnkV 1
  var %nss = $nick($chan,0)
  var %Enss = 1
  :next
  if (%locate >= %nss) { goto hop }
  inc %locate 1
  var %Lnk = $len($nick($chan,%locate))
  if (%Lnk >= %LnkV) { set %LnkV %Lnk }
  goto next
  :hop
  set %tst $ts
  set %est $str($chr(160), $calc( %LnkV + 2 - %fst ))
  if (!%tst) { echo -i11 $1 $str($chr(160),8) $timestamp $2 %est $3- | HALT }
  echo -i11 $1 $timestamp $2 %est $3-
}