#!/usr/bin/perl

my $n = shift;
my $p = shift || 0.5;

for (0 .. $n) {
  print "$_ ", choose($n, $_) * $p**$_ * (1-$p)**($n-$_), "\n";
}

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