#!/usr/local/bin/perl

$line = <STDIN>;
$line =~ s/^\s+//;
while (1) {
        last if ($line eq "");
        ($word, $line) = split (/\s+/, $line, 2);
        print ("$word\n");
}
