#!/usr/bin/perl

use strict;
use warnings;

my @ad;

push( @ad, "an unmuzzled" );
push( @ad, "a puking" );
push( @ad, "a rank" );
push( @ad, "a fitful" );
push( @ad, "a brazen" );
push( @ad, "a villainous" );
push( @ad, "a frothy" );
push( @ad, "a puny" );
push( @ad, "a mammering" );
push( @ad, "a wenching" );
push( @ad, "a pernicious" );
push( @ad, "a waggish" );
push( @ad, "a cockered" );
push( @ad, "a bootless" );
push( @ad, "a spongy" );
push( @ad, "a qualling" );
push( @ad, "an impertinent" );
push( @ad, "a distempered" );
push( @ad, "a currish" );
push( @ad, "a ruttish" );
push( @ad, "a sottish" );
push( @ad, "a surly" );
push( @ad, "a spleeny" );
push( @ad, "a wanton" );
push( @ad, "a knavish" );
push( @ad, "a mangled" );
push( @ad, "a peevish" );
push( @ad, "a gnarling" );
push( @ad, "a pribbling" );
push( @ad, "a loggerheaded" );
push( @ad, "a churlish" );
push( @ad, "a yeasty" );
push( @ad, "a jarring" );
push( @ad, "a tottering" );
push( @ad, "a saucy" );
push( @ad, "a grizzled" );
push( @ad, "a venomed" );
push( @ad, "a clouted" );
push( @ad, "a vain" );
push( @ad, "a prating" );
push( @ad, "a paunchy" );


my @ad2 = qw( bunch-backed raw-boned dizzy-eyed fat-kidneyed chop-fallen paper-faced unchin-snouted clay-brained crook-pated heavy-handed lean-witted ill-nurtured hell-hated empty-hearted evil-eyed rough-hewn bat-fowling tickle-brained ill-breeding shard-borne idle-headed sheep-biting pottle-deep mad-bread dread-bolted shrill-gorged rump-fed knotty-pated guts-griping boil-brained milk-livered motley-minded hasty-witted pox-marked fool-born muddy-mettled folly-fallen dismal-dreaming mad-brained tardy-gaited horn-mad );

my @ad3 = qw( snipe egg-shell miscreant clack-dish bladder haggard manikin wagtail giglet bug-bear cox-comb hugger-mugger scut puttock flirt-gill gudgeon ruffian boar-pig malt-worm maggot-pie rampallion lout foot-licker scullion cod-piece lewdster harpy hedge-pig baggage mold-warp skainsmate toad waterfly minnow jolt-head crutch nut-hook whipster barnacle remnant dewberry );

my $str = "Thou art " . $ad[int( rand( scalar( @ad ) ) )] . " " . $ad2[int( rand( scalar( @ad2 ) ) )] . " " . $ad3[int( rand( scalar( @ad3 ) ) )];

print( "$str\n" );

