$size = $ARGV[1];


for ($i = 0; $i < $size; $i++) {
  $_ = <>;
  if (m/^{/){
    $name = $last;
  }
  if (m/^([a-zA-Z0-9_]+).*/){
    $last = $1;
  }
}
print $name;