$a=<>;for(<>){print"$a",$_+$a,"\n";$a=$_}print$a