#!/usr/bin/awk -f
BEGIN {
   if (p<1) {p = 1};
}

function diff(s, p) {
   n = split(s, a, " ");
   for (j = 1; j <= p; j++) {
      for(i = 1; i <= n-j; i++) {
         a[i] = a[i+1] - a[i];
      }
   }
   s = "";
   for (i = 1; i <= n-p; i++) s = s" "a[i];
   return s;	
}

{
   print diff($0, p);
}