#!/usr/local/dist/bin/perl

$count = 0;

LINE: while( <> ) {
  next LINE if /^#/;      # discard comments
   
  chomp;
  if( $_ != "" ) {
    if( $exists{$_} != 1 ) {
      $list[$count] = $_;
      $exists{$_} = 1;
      $count++
    }
  }
}

print "$count \n";

foreach $item (@list) {
  print "$item \n";
}

exit $count;
