Here is a perl script to automate the above process!
#!/usr/bin/perl -w
@L1 = ("epic","French","soulful","evil","sexy","hard","deep","progressive",
"Swedish","fast","downtempo","filtered","wet","tribal","Florida","funky",
"euro","diva","abstract","dark","slow","Chicago","layered","disco",
"ambient","dubby","deranged","San Francisco","pounding","intelligent"
,"psychedelic","German","twisted","abstract","breaky","massive","acid","booty"
,"Detroit","ruff","electro","energetic","bangin","chilled-out","happy",
"uptempo","analog","rave", "uplifting");
@L2 = ("house","techno","drum'n'bass","trance","breaks","gabber",
"hip-hop","2-step","jungle","ambient","\bcore" );
$name = "";
for ($adjectives = int(rand(3)); $adjectives >= 0; --$adjectives) {
$name .= ($L1[int(rand($#L1))] . " ");
}
$name .= $L2[int(rand($#L2))];
print "$name\n";