Ответ

VictorSmirnov 09.10.2003 12:05

@format[str][l;start;i]
  $l(^str.length[])
  ^if($l <= 3){
    $res[$str]
  }{
    ^if($l % 3 > 0 ){
      $res[^str.mid(0;$l % 3),]
    }{
      $res[]
    }
    $start($l % 3)
    $res[${res}^for[i](0;$l\3-1){^str.mid($start+$i*3;3)}[,]]
  }
  $result[$res]

@main[]

^format[1234567]