on 1:input:*: {
  if ($len($1-) > 420) {
    %cuttext = $remove($1-,$left($1-,420))
  timer 1 1 / say  --- %cuttext  }
}