#!/usr/bin/perl6 my ($a,$b)=split(' ',get()); print $a+$b~' '; say get();