#!/usr/bin/perl

while(<>){
    split;
    for $i (0..14){
	print $_[$i] - $old[$i], " ";
	$old[$i]=$_[$i];
    }
    print "\n";
}