#!/usr/bin/perl -w

use strict "refs";

$nbLignes = 0;

while (<STDIN>) {
    $nbLignes++;
}
print "$nbLignes\n";
