#!/usr/bin/perl -w
while (<STDIN>)
{
  @words = split(/\s/);
  print $words[0],"\n";
}