
use strict 'vars';
my $n;
if (@ARGV) { $n = shift } else { $n = 1 }
while (<>) {
  print rand($n), "\n";
}





