#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

my($a,$b)=split(/ /,<>);
print $a+$b.' ';
say <>;