#!/usr/bin/env perl
#
#

@adj1 = ('Enochian', 'Dee', 'Dansean', 'Erich-Zahn', 'cthonian',
         'eldritch', 'Tillinghast', 'occult', 'Dho-Nha', 'Platonic', 'fractal',
         'Hyperborean', 'Derlethian', 'Dagonian');

@mod = ('vector', 'binding', 'space', 'geometry', 'spirit', 'neural',
        'dimensional');

@noun = ('curve', 'equation', 'warp', 'flux', 'vortex', 'field',
         'wave', 'grid', 'matrix', 'weave', 'sequence', 'invocation',
         'circuit', 'node', 'web', 'net');

@maker = ('generator', 'resonator', 'collapser', 'projector',
          'emitter', 'computer', 'constructor', 'creator', 'solver', 'invoker',
          'manifester', 'encoder');

$babble = $adj1[int(rand($#adj1 + 1))];

#$babble .= $prefixes(int(rand(length(@prefixes)))) if int(rand(3)) == 1;

$babble .= " " .$mod[int(rand($#mod + 1))];

$babble .= " " .$noun[int(rand($#noun + 1))];

$babble .= " " .$maker[int(rand($#maker + 1))];

#$last = $last(int(rand(length(@last))));


print $babble . "\n";

1;
