#!/usr/bin/env perl

use strict;
use warnings;

if (defined $ARGV[0]) {
  srand 15145 + $ARGV[0];
}
my $n = $ARGV[1] // (1 + int rand 10000);
my $u = $ARGV[2] // (1 + int rand $n);

my @sizes = ();
for my $i (1 ... $u) {
  push @sizes, (1 + int rand 10000000) / 1000000;
}

print "$n\n";
for my $i (1 ... $n) {
  my $q = $sizes[int rand @sizes];
  print "$q" . "L\n";
}