#!/usr/bin/perl -w

my $n = <>;
chop $n;
print "$n\n";

while(<>)
{
  chop;
  print; print " 0\n";
}
