-- === differences ===

differences :: [Int] -> [Int]
differences (x:y) = differences2 ([x]++y) (y++[x])
differences :: [Int] -> [Int]
differences (x:y) = differences2 ([x]++y) (y++[x])
differences (x:y) = differences2 ([x]++y) (y++[x])