#!/usr/bin/perl -l

my @file = <>;
print 0+@file;