Code:
alias kuran.output {
  var %length = 80
  var %output = $2-
  var %buffer
  var %looprot

  while ($len(%output) > 0) {
    %buffer = $null
    while ($gettok(%output, 1, 32) > %length) {
      sockwrite -n $1 $left(%output, %length)
      %output = $right(%output, $calc(0 - %length))
      inc %looprot
      if (%looprot > 50) { halt }
    }
    while ($len(%buffer) < %length && $len(%output) > 0) {
      %buffer = $instok(%buffer, $gettok(%output, 1, 32), $numtok(%buffer, 32), 32)
      %output = $deltok(%output, 1, 32)
      inc %looprot
      if (%looprot > 50) { halt }
    }
    if ($len(%buffer) > %length) {
      %output = $instok(%output, $gettok(%buffer, $numtok(%buffer, 32), 32), 0, 32)
      %buffer = $deltok(%buffer, $numtok(%buffer, 32), 32)
    }
    inc %looprot
    if (%looprot > 50) { halt }
  }
}


This was my sloppy attempt at doing it (note the %looprot to make absolutely sure theres no infinite loops)
However, it doesn't work. Oddly enough, it still hard wraps.