_clcycle {
  if %curcycle == $null { set %curcycle 0 }
  if %curcycle == 6 { set %curcycle 0 }
  inc %curcycle
  return $gettok(04 07 08 09 11 13,%curcycle,32)
}
_cltext {
  unset %cl.return | var %cl.length = $len($1-) | var %cl.counter =  0 | var %cl.return
  var %cl.temp | :clst | inc %cl.counter
  if $mid($1-,%cl.counter,1) == $chr(32) { set %cl.temp   } | else { set %cl.temp  $+ $_clcycle $+ $mid($1-,%cl.counter,1) }
  set %cl.return %cl.return $+ %cl.temp | if %cl.counter == %cl.length goto clend
  goto clst | :clend | return $remove(%cl.return,)
}
cf say $_cltext($1-)