#!/usr/bin/perl

use warnings;
use strict;

use Getopt::Long;

my $count = 0;

GetOptions('count|c' => \$count);

my %lines;
while (defined(my $line = <STDIN>)) {
    next if (exists($lines{$line}));

    $lines{$line} = 1;
    print STDOUT $line if (!$count);
}

if ($count) {
    print(scalar(keys(%lines)));
}