on 1:INPUT:*:{
  /var %clen 400
  if ( $nick == $me && $len( $1- ) > %clen ) {
    haltdef
    /var %s 1
    while ( $len( $1- ) > %s ) {
      /say $mid( $1-, %s, %clen )
      /var %s $calc( %s + %clen )
    } 
  }
}