Помогите упростить. А то чё-то намудрил, аж самому смешно...

246-ой 06.06.2005 08:05

@up[str]
$gb[^str.mid(0;1)]
^gb.upper[]^str.mid(1)

@ob[str;cols]
^if(def $cols){$col($cols)}{$col(10)}
$parts[^str.split[ ;lv]]
^if(^parts.count[] > $col){
	^parts.menu{
		^if(^parts.offset[] < $col){
	 		^if(^parts.offset[] eq 0){
				^up[$parts.piece]
				}{
				$parts.piece}
		 }}...
}{
^up[$str]
}