#!/usr/bin/perl -w 

use strict;

my $item;
my @words;

while ($item = <>){
  chomp $item;
  push @words,$item;
#  print "@words";
}

#my $count = 0;

#foreach (@words){
#  $count++
#}
my $count = @words;


print "$count\n";

#print "@words";