alias f1 { mode # +b $left($$1,5) $+ * }
on *:join:*:  { if $regex($nick,/([[:print:]])\1\1/gi) >= 1 { mode # +b $nick }  }