alias seslen { 
  var %a 1,%b,%c $nick(#,0)
  while %a <= %c {  
    if ($len(%b) > 820 || %a == %c) { say %b | var %b }
    var %b %b $nick(#,%a) | inc %a
  } 
  say - | say $1- 
}