#!/usr/pkg/bin/perl
# cavetag - papa's cave site tag line generator


@wttag = (
	[6, "Virtual hideaway and commonplace book"],
	[6, "My brain on the Internet"],
	[1, "You are in a twisting maze of little passages, all different."],
	[1, "You are in a twisting little maze of passages, all different."],
	[1, "You are in a maze of little twisting passages, all different."],
	[1, "You are in a maze of twisting little passages, all different."],
	[1, "You are in a little maze of twisting passages, all different."],
	[1, "You are in a twisty maze of little passages, all different."],
	[1, "You are in a twisty little maze of passages, all different."],
	[1, "You are in a maze of twisty little passages, all different."],
	[1, "You are in a maze of little twisty passages, all different."],
	[1, "You are in a little twisty maze of passages, all different."],
	[1, "You are in a little maze of twisty passages, all different."],
	[1, "You are in a maze of twisty little passages, all alike."]
	);



$priority = 0.5;
@priotag = (
	"Virtual hideaway and commonplace book",
	"My brain on the Internet"
	);
@maze = (
	"You are in a twisting maze of little passages, all different.",
	"You are in a twisting little maze of passages, all different.",
	"You are in a maze of little twisting passages, all different.",
	"You are in a maze of twisting little passages, all different.",
	"You are in a little maze of twisting passages, all different.",
	"You are in a twisty maze of little passages, all different.",
	"You are in a twisty little maze of passages, all different.",
	"You are in a maze of twisty little passages, all different.",
	"You are in a maze of little twisty passages, all different.",
	"You are in a little twisty maze of passages, all different.",
	"You are in a little maze of twisty passages, all different.",
	"You are in a maze of twisty little passages, all alike."
	);
$tag = '';
if (rand() < $priority) {
	$n = int( rand( $#priotag * 2 + 1 ) );
	if ( $n > $#priotag ) {
	    $tag = $priotag[$#priotag];
	}
	else {
	    $tag = $priotag[$n];
	}
}
else {
	$n = int( rand( $#maze * 2 + 1 ) ) ;
	if ( $n > $#maze ) {
	    $tag = $maze[$#maze];
	}
	else {
	    $tag = $maze[$n];
	}
}
print "$tag\n";