/*  Ember I   */

"test of text"
dup
0 !sizer
0 !chars
0 !counter
 {
  " " slice
  exch isnull ?

length) dup _chars add !chars
 _sizer max !sizer
 _counter 1 add !counter
 } loop
 pop2

_sizer _counter gt
_sizer 5 le and
{
 " " "," replall !reslt
}
{

0 !sizet
empty !reslt
empty !reslu
_counter countup
{
 second " " third - 1 1 parse
 length _sizer lt
 {

  length _sizet add _sizer gt
  {
   length !sizet
   _reslu ^:reslt empty !reslu
   ^"," !reslu
  }
  {
   length _sizet add !sizet
   ^"-" ^:reslu
   
  } ifelse
 }
 {
  length !sizet
  _reslu ^:reslt
  ^"," !reslu
 } ifelse

 pop
} for
_reslu ^:reslt
pop
} ifelse
_reslt -1 left dup !reslt
_sizer
_counter
_chars