alias davis {
  tokenize 32 $1-
  var %a 1, %h $len($2-), %d, %x
  while (%a <= %h ) {   %d = $+(%d,$chr(2),$iif($r(1,6) = 1,$+($chr(31),$chr(3),12)),$mid($2-,%a,1),,14,$chr(32))  | inc %a  }
  if ($ctrlenter) { return $1- }
  if ($cb(0)) { return $+($1,$iif(%d,$+($chr(32),,14,$left(%d,-2)),$2-)) }
  else { return $1- }
}

on *:signal:MODOESCRITURA: {
  %frase^halt = on
  msg $active $davis($1-)
}