#!/usr/bin/perl

my $n = shift;
my $nn = $n+1;
print "plot [0:1]";
my $comma = 0;
for (0 .. int($n/2)) {
  print ", " if $comma;
  my $lt = $_+1;
  $lt++ if $lt >= 6;
  if ($_*2 < $n) {
    print choose($n, $_), "* x**$_ * (1-x)**", $n-$_, 
    "+", choose($n, $_), "* x**", $n-$_, " * (1-x)**$_ lt $lt";
  } else {
    print choose($n, $_), "* x**$_ * (1-x)**", $n-$_, " lt $lt";
  }
  $comma = 1;
}
print "\n";


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