Mine

#!/bin/rc

count = 0;
calc = 0;
num = 4;
denom = 1;
negval = 1;

while (test $1 -gt $count) {
	calc = hoc($calc + ($negval * ($num / $denom)));
	negval = `{echo -$negval | bc};
	denom = hoc($denom + 1);
	count = hoc( $count + 1);
}

echo $calc