#!/usr/bin/perl -w

use strict;
use warnings;

open (FILE,"$ARGV[0]") or die;
#open (WRITE,">aa");
#close (FILE);
while( my $line = <FILE> )
{
     my($index, $key, $data, @rest) = split("\t",$line);

                  for my (  $x=0.01,$x<=1;$x++)
                        {
                          for my ( $y=-9;$y<=9;$y++)
                                {
                                if (($key >$x) || ($data >$y))
                                        {
                                         print   "1","\n";
                                         $x++;
                                         $y++;
                                         }
                                         else
                                                {
                                                        print  "0","\n";
                                                }
                                 }
                          }
}
close (FILE);