not realy good

test for test return test fr test <== that messing the "o" then u have to add $calc and u'll have more bytes

Code:
var %i $len($1-) / 2
say 12,11 $+ $left($1-,%i) $+ 11,14 $+ $mid($1-,- $+ $calc(%i +1))



if you want even less bytes

Code:
var %x $len($1-) / 2,%1 12,11 
say 11,14 $regsubex($1-,/(.)/g,$iif(%x < \n,%1)\1)


with identifiers $left and $mid it's cleaner, but what interress is the result