Miscellany

#hair on
on 1:input:#:{
  if ($left($1,1) != /) {
    var %x = $r(1,$len($1-))
    msg # $mid($1-,1,%x) [hair] $mid($1-,$calc(%x + 1))
    .timer 1 $r(10,60) .enable #hair
    .disable #hair
    haltdef
  }
}