function f-switch ()
{
case "$CURRENT" in

	gringold)
	CURRENT="standard"
	standard
	call
	;;
	standard)
	CURRENT="mono"
	mono
	call
	;;
	mono)
	CURRENT="cool"
	cool
	call
	;;
	cool)
	CURRENT="glowcave"
	glowcave
	call
	;;
	glowcave)
	CURRENT="ice"
	ice
	call
	;;
	ice)
	CURRENT="uncool"
	uncool
	call
	;;
	uncool)
	CURRENT="trad"
	trad
	call
	;;
	trad)
	CURRENT="gringold"
	gringold
	call
	;;
	*)
	CURRENT="gringold"
	gringold
	call
	;;
esac
}