#!/usr/bin/perl -wn

use strict;

our %want;

BEGIN {
      my $want = shift @ARGV;
      my ($part,$knife) = $want =~ m/^([ha])(\d)$/ or die;

      $want{ $knife+1 } = $part =~ m/[h]/;
      $want{ $knife+4 } = $part =~ m/[ha]/;
}

our $drop;

if (m/^\S/) {
    $drop = 
	m/^2 / ||
	(m/^3 \d+ \d+ \d+ (\d+) / && !$want{$1});
}

next if $drop;

print or die $!;