#!/bin/sh

export RANGE=40
export OFFSET=`expr 255 - $RANGE`

eval $(perl -le 'sub c { int(rand() * $ENV{RANGE} + $ENV{OFFSET}) }; sub p { printf("%s=#%02x%02x%02x\n", @_) }; @f = (c, c, c); @b = map($_ - $ENV{OFFSET}, @f);  p("FG",@f); p("BG", @b);')

[ $# -eq 0 ] && set -- screen -RR
LANG=C STY= exec xterm -fg white -ms "$FG" -bg "$BG" -fn '*suxus*' -cr green -e "$@"