#!/usr/bin/perl

#undef $/;
#$/='';

my $lixo= <>;
while(<>){
  chomp;
  @a=split(/\s+/,$_);
  $nl++;
  $c11++ if($a[4] eq "1:1");
  $c+=$a[5] if $a[5];
}

print sprintf('%5.1f %5.1f\n', $c/$nl/3 , $c11/$nl*100);

__END__
c-c-1 p c-c-2 p
0	7	0	11	1:2	120
8	30	12	72	2:2	423
31	36	73	78	2:1	23
37	43	79	86	2:1	30
44	49	87	95	2:1	24
50	50	96	99	1:1	10
51	55	100	109	2:1	33
56	69	110	120	1:2	61
70	79	121	136	1:2	43