Well i was bored a bit wrote a bit of stuff, theres multi Lenght checks for up to 52 chrs operations.

Code:
alias newc { 
  if ($len($1)) { %lc.a = $left($1,+17) | %lc.b = $left($remove($1,%lc.a),+17) | %ts.a = $+(%lc.a,%lc.b) | %lc.c = $left($remove($1,%ts.a),+17) }
  IF (!%lc.c) { unset %lc.c }
  if (!%lc.b) { unset %lc.b }
}


Here's the lcalc alias that goes with the new calc lenght check. Needs work on both scripts but its an advancement if you will call it that.

Code:
alias lcalc {
  newc $1
  if (%lc.c) { 
    %lc.a = %lc.a $2 $3
    %lc.b = %lc.b $2 $3
    %lc.c = %lc.c $2 $3
    if ($chr(46) isin %lc.a) || ($chr(46) isin %lc.b) || ($chr(46) isin %lc.c) { 
      %lc.a = $round(%lc.a,1) | %lc.a = $left(%lc.a,$+(+,$calc($len(%lc.a)-3))) 
      %lc.b = $round(%lc.b,1) | %lc.b = $left(%lc.b,$+(+,$calc($len(%lc.b)-3))) 
      %lc.c = $round(%lc.c,1) | %lc.c = $left(%lc.c,$+(+,$calc($len(%lc.c)-3))) 
    }  
    return $+(%lc.a,%lc.b,%lc.c) 
  }
  elseif (%lc.b) {
    %lc.a = %lc.a $2 $3
    %lc.b = %lc.b $2 $3
    if ($chr(46) isin %lc.a) || ($chr(46) isin %lc.b) {
      %lc.a = $round(%lc.a,1) | %lc.a = $left(%lc.a,$+(+,$calc($len(%lc.a)-3))) 
      %lc.b = $round(%lc.b,1) | %lc.b = $left(%lc.b,$+(+,$calc($len(%lc.b)-3))) 
    }
    return $+(%lc.a,%lc.b)
  }
  elseif (%lc.a) {
    %lc.a = %lc.a $2 $3
    if ($chr(46) isin %lc.a) {
      %lc.a = $round(%lc.a,1) | %lc.a = $left(%lc.a,$+(+,$calc($len(%lc.a)-3)))  
    }
    return $+(%lc.a)
  }
}

Code:
if $reality > $fiction { set %sanity Sane }
Else { echo -a *voices* }