set -e
HUEPL="/usr/pkg/bin/perl /home/kiers/bin/hue.pl"

$HUEPL red 1
$HUEPL red 3
$HUEPL red 5
$HUEPL red 7
$HUEPL green 2
$HUEPL green 4
$HUEPL green 6

while true 
do
        L=$[ $RANDOM/ 4681 ]
        L=$[ $L + 1 ]
        echo $L
        case $L in
        [1357])
                $HUEPL white $L
                sleep .6
                $HUEPL red $L
                ;;
        [246])
                $HUEPL white $L
                sleep .6
                $HUEPL green $L
                ;;
        esac
        sleep 1
done