#!/usr/bin/perl

for( $i = 0; $i < 50; ++$i )
{
        $x = int( rand( 114 )*100 )/100;
        $y = int( rand( 70 )*100 )/100;

        if( $x < 30 ){ if( $y < 2*$x ){ print "                     \\put($x,$y){\\circle*{2}}\n"; } }
        elsif( $x < 50 ){ if( $y < 0.5*$x + 45 ){ print "                     \\put($x,$y){\\circle*{2}}\n"; } }
        else{ if( $y < -0.5*$x + 95 ){ print "                     \\put($x,$y){\\circle*{2}}\n"; } }
}