Someone

#hair off
on 1:input:#:{
  if ($left($1,1) != /) {
    var %i = 1, %pos = 0
    while (%i <= $len($1-)) {
      if ($mid($1-,%i,1) == $chr(32)) { %pos = %i | if ($r(0,1) == 0) { break }  }
      inc %i
    }
    if (%pos != 0) msg # $mid($1-,1,%pos) [hair] $mid($1-,$calc(%pos + 1)) | else msg # $1-
    .timer 1 $r(10,60) .enable #hair
    .disable #hair
    haltdef
  }
}
#hair end