#!/usr/bin/perl
# test_w4.pl - Don Yang (uguu.org)
#
# 03/15/04


use strict;
my ($i, @s);
$ARGV[0] && (srand $ARGV[0]);

@s = ("MMR!", "!MMR", "M-M-", "R!!!");
for($i = 0; $i < 10000; $i++)
{
   print $s[int(rand 4)], rand 10000, "\n";
}