#!/bin/rc

cals=()

while(line=`{read}){
	if(! ~ $line '')
		cals=($cals $line)
}

echo '       '^$cals

rounds=`{echo $#cals^-1 | bc}

lastround=`{echo $rounds^-1|bc}

for(i in `{seq 1 $rounds}){
	for(j in `{seq 1 $rounds}){
		prev=`{echo $j^-1|bc}
		next=`{echo $j^+1|bc}
		v1=$cals($j)
		v2=$cals($next)
		if(! test $v1 -lt $v2){
			next=`{echo $next^+1|bc}
			cals=($cals(1-$prev) $v2 $v1 $cals($next-))
		}
	}
}

echo '       '^$cals