#!/usr/bin/perl -w
# the new meme script, completely ripped off from the insult script!
# by AndyLandy.  Also try automeme, or even autowikimeme!

# @common = qw(Bacon Base Cheese Llama Null Panda Stairs Telephone Tustin);
# @words1 = (@common, qw(AllYour Bearded CaseSensitive Crufty DirtyDirty Evil Filthy Indeterminate Insecure Local Organic Pickled Shonky WantSome));
# @words2 = (@common, qw(Allann Allsopp Beard BlitterChip Blumenkraft ColinMochrie Cow CSLib Donkey DualBoot EyeBrows Foo GarbageCollection Jg102 Kirsty Meme Shoes Shonk Shop Soy Spong Spork Spoon Stein Telnet Trousers WiKi Yatta));

# $word1 = $words1[rand(@words1)];

# do {
#   $word2 = $words2[rand(@words2)];
# } while($word1 eq $word2);

# print $word1 . $word2 . "\n";

@begin = qw(AllYour WantSome);
@adj   = qw(Crufty Dirty Evil Insecure Shonky);
@noun  = qw(Allann Beard Blumenkraft CSLib Donkey Meme Shoes Shonk Telnet);

sub randword {
	return $_[int rand scalar @_];
}

$x = int rand(2);
print randword(@begin) if $x;
foreach (($x ? 1 : 0)..int(rand(scalar @adj))) { print randword(@adj); }
print randword(@noun), "\n";
