sss

alias lol {
  var %text $1-, %w 1
  while ($gettok(%text,%w,32)) {
    var %word $gettok(%text,%w,32) | var %wordlen $len(%word), %wlen 1
    inc %w
    while (%wordlen >= %wlen) {
      if ( $mid(%word,%wlen,1) != 1) { set -u2 %finishword $+(%finishword,$pb1($mid(%word,%wlen,1))) }
      inc %wlen
    }
    set -u2 %fs $+(%fs,$chr(32),%finishword)
    unset %finishword
  }
  say %fs

}
alias pb1 {
  var %t $+($chr(3),$r(2,9),$iif($r(1,2) == 1,$+($chr(44),$r(2,9)),$null),$1,$chr(3)) | var %b $iif($r(1,2) == 1,$+($chr(2),%t,$chr(2)),%t)) | var %u $iif($r(1,2) == 1,$+($chr(31),%b,$chr(31)),%b))
  return %u 
}