#!/usr/bin/perl -w

@N = ( "apple", "bee", "chair", "dung", "elephant", "ferry", "gorrila",
       "horse", "ink", "jam", "kite", "logarithm", "mosquito", "nose",
       "opera", "parent", "queen", "rose", "stove", "table", "utopia",
       "velocity", "weasle", "xylophone", "yam", "zebra" );
@V = ( "hit", "eat", "touch", "push", "pull", "type", "see", "jump" );
@ADJ = ( "yellow", "big", "tall", "small", "tiny", "short" );
@ADV = ( "nicely", "beautifully", "well" );
@P = ( "of", "on", "on top of", "from", "to", "at", "under", "next to" );
@DET = ( "the", "this", "that" );

$lenN = 26;
$lenV = 8;
$lenADJ = 6;
$lenADV = 3;
$lenP = 8;
$lenDET = 3;

print "\t";
foreach $arg ( @ARGV )
{
    if( $arg =~ /-h/ )
    {
        print "usage: \n";
        # print "\t ranbo -r \n";
        print "\t ranbo POS (POS)* \n";
        print "\t e.g. POS = {N,V,ADJ,ADV,P,DET} \n";
    }
    # ADV
    elsif( $arg =~ /ADV/ )
    {
        $randadv = rand $lenADV; 
        print $ADV[$randadv] . " ";
    }
    # ADJ
    elsif( $arg =~ /ADJ/ )
    {
        $randadj = rand $lenADJ; 
        print $ADJ[$randadj] . " ";
    }
    # DET
    elsif( $arg =~ /DET/ )
    {
        $randdet = rand $lenDET; 
        print $DET[$randdet] . " ";
    }
    # N
    elsif( $arg =~ /N/ )
    {
        $randn = rand $lenN; 
        print $N[$randn] . " ";
    }
    # V
    elsif( $arg =~ /V/ )
    {
        $randv = rand $lenV; 
        print $V[$randv] . " ";
    }
    # P
    elsif( $arg =~ /P/ )
    {
        $randp = rand $lenP; 
        print $P[$randp] . " ";
    }
    else
    {
        $randn1 = rand $lenN; 
        $randv  = rand $lenV; 
        $randn2 = rand $lenN; 
        print $N[$randn1] . " " . $V[$randv] . " " . $N[$randn2] . "\n";
    }
}
print "\n";