ok

#!/bin/rc

cd '#G'/gpio

for (i in `{seq 1 100} ) {
	echo `{mod $i  2} > OK
	sleep .1
}

# helper functions

fn seq {
	switch ( $#* ) {
	case 1
		* = ( 1 $1 )
	case 2
	case *
		echo >[1=2] usage: seq [start] stop
	return 1
	}

	echo $1 $2 | awk '{
	if ( $1 <= $2 )
		for ( i = $1; i <= $2; i++ ) print i;
	else
		for ( i = $1; i >= $2; i-- ) print i;
	}'
}

fn mod {
	echo $1 $2 | awk '{
		print $1 % $2
	}'
}