minus x = concat $ zipWith minus' (tails $ tail x) x
  minus' ys x  = zipWith (abs . (-)) ys (repeat x)