Last Snippet $kennify:

alias kennify { 
  var %p = $calc(3-2*$regex(x,$1-,/[^\W\dmpf_]/i))
  return $regsubex(r,$1-,/([a-z]{ $+ %p $+ })/ig,$iif($calc(3-2* %p -1),$chr($calc($base($replace(\t,m,0,p,1,f,2),3,10) $iif($regex(\t,/[A-Z]/g),-32)+97)),$replace($iif($upper(\t) === \t,-) $+ $mid($base($calc($asc($upper(\t))-65),10,3,4),2),0,m,1,p,2,f,-m,M,-p,P,-f,F)))
}

Recent Posts