#!/usr/bin/perl
#
#

$debug = 1;

while (<STDIN>) {

  $line = $_;
  chomp($line);
  
  $class = substr($line, 105, 10);
  @words = split(/\s+/, $class);
  $sp = $words[0];
  $lum = $words[1];

  if ($debug > 1) {
    printf "class is ..$class..  sp is ..$sp..  lum is ..$lum.. \n";
  }

  if (($lum eq "Ia") || ($lum eq "Ib") || ($lum eq "I"))  {
    printf "$class \n";
  }

}

exit 0;
