A lil shorter version.
alias half { var %a 1 while ($($ $+ %a,2) != $null) { var %s %s $left($v1,$ceil($calc($len($v1)/2))) inc %a } msg $active %s }