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

for (my $i = 0; $i < 9; ++$i)
{
    scalar(<>);
}
my $total = 0;
outer:
for (<>)
{
    chomp;
    s/\r//;
    my @fields = split(/ /);
    for (@fields)
    {
        $total = 0 if m/m\|/;
        last outer if m/\@/;
        next unless m/^[0-9]+(:[0-9]+)?\.?$/;
        ++$total;
    }
}
print $total, "\n";