А> minus x = concat $ zipWith minus' (tails $ tail x) x А> minus' ys x = zipWith (-) ys (repeat x) А>