#!/usr/bin/perl -w 
use strict;

while (my $line=<DATA>){
      chomp $line; 
      my($run,@sw)=split(/[\s]+/,$line);
      my @switches=();
      $switches[$_] = 0 foreach (0..5);  # initialize switch array
      $switches[$_ -1]=1 foreach (@sw);
      printf "%s %s\n",$run,join(" ",@switches);
          
}

exit(0);
__END__
run1 2 4
run2 1 6
run3 1
run4 1 3
run5 2 5