alias _t {
  if ($isid && $regex(+t,$1,^(fb)$)) {
    var %_t = $regml(+t,1),%_r = return,%_2 = $iif($2,$v1),%_3 = $iif($3,$v1)
    if ($(,%_t) = fb) %_r $regsubex($$4-,/(.)/g,$iif(2 \\ \n,$+($chr(3) $+ $chr(50) $+ $chr(44) $+ $chr(56),%_2,\1,$chr(3) $+ $chr(56) $+ $chr(44) $+ $chr(50),%_3),\1))
  }
}
on *:input:*: {
  if (/* !iswm $1-) {
    say $replace($_t(fb,,,$1-),b,ß)
    halt
  }
}