reduce return $deltok($regsubex($1,/(.)/g,$iif($calc(($asc(\1)-$asc(\2))^-9999+3) & $v1,-,\1)),,45)