var %x $len($1-) / 2,%1 12,11,%2 11,14 say $regsubex($1-,/(.)/g,$iif(%x < \n,%2,%1)\1) haltdef
if c !isincs $gettok($chan($active).mode,1,32)