#!/usr/bin/perl
$count = 0;
while (($line = <STDIN>) && ($count <= 1)) {
    if ($count == 1) {
        ($width,$height)=split(/ /,$line);
        print "$width";
    }
    $count = $count + 1;
}