#!/usr/bin/perl

my $n = shift;

print "plot [0:1]";
for (0 .. $n) {
  my $lt = do 
  { my ($a, $b) = ($_, $n-$_);
    my $lt = 1 +  ($a < $b ? $a : $b);
    $lt == 6 ? 7 : $lt;
  };
  print choose($n, $_), "* x**$_ * (1-x)**", ($n-$_), 
        qq{ title "$_/$n" lt $lt};
  print ",  " unless $_ == $n;
}
print "\n";


sub choose {
  my ($n, $k) = @_;
  my $Q = 1;
  for my $i (1 .. $k) {
    $Q *= ($n + 1 - $i) / $i;
  }
  $Q;
}