#!/usr/bin/env perl

use strict;
use warnings;

my $MAXN = 100;

my $n = $ARGV[0] // 20;
my $m = $ARGV[1] // (int rand ($n-3)) + 3;
die "Invalid N: 3 <= n($n) <= $MAXN"  unless 3 <= $n and $n <= $MAXN;
die "Invalid M: 3 <= m($m) <= $n" unless 3 <= $m and $m <= $n;

my %keys = ();
for my $i (1 ... $n) {
  $keys{(int rand 360000000) / 1000000} = 1;
}

my @arr = sort {$a <=> $b} keys %keys;
print "$n\n$m\n@arr\n";