module Main where
 
main :: IO ()
main = do
  _ <- getLine
  a <- getIntList
  mapM_ putStrLn $ solve a
 
m :: [Int]
m = [1, 0, -1, 0] ++ [0, 0 ..]
 
solve :: [Int] -> [String]
solve a = fmt . loop $ reverse a
  where
  loop a' | length a' <= 4 = calc a'
          | otherwise      = loop $ calc a'
 
fmt :: [Int] -> [String]
fmt ns = [s1] ++ [s2]
  where
  s1 = show . pred $ length s2
  s2 = unwords . reverse . map show $ dropWhile (==0) ns
 
calc :: [Int] -> [Int]
calc ns = tail $ zipWith (-) ns $ map (* (head ns)) m
 
getIntList :: IO [Int]
getIntList = map read . words <$> getLine

bW9kdWxlIE1haW4gd2hlcmUKCm1haW4gOjogSU8gKCkKbWFpbiA9IGRvCiAgXyA8LSBnZXRMaW5lCiAgYSA8LSBnZXRJbnRMaXN0CiAgbWFwTV8gcHV0U3RyTG4gJCBzb2x2ZSBhCgptIDo6IFtJbnRdCm0gPSBbMSwgMCwgLTEsIDBdICsrIFswLCAwIC4uXQoKc29sdmUgOjogW0ludF0gLT4gW1N0cmluZ10Kc29sdmUgYSA9IGZtdCAuIGxvb3AgJCByZXZlcnNlIGEKICB3aGVyZQogIGxvb3AgYScgfCBsZW5ndGggYScgPD0gNCA9IGNhbGMgYScKICAgICAgICAgIHwgb3RoZXJ3aXNlICAgICAgPSBsb29wICQgY2FsYyBhJwoKZm10IDo6IFtJbnRdIC0+IFtTdHJpbmddCmZtdCBucyA9IFtzMV0gKysgW3MyXQogIHdoZXJlCiAgczEgPSBzaG93IC4gcHJlZCAkIGxlbmd0aCBzMgogIHMyID0gdW53b3JkcyAuIHJldmVyc2UgLiBtYXAgc2hvdyAkIGRyb3BXaGlsZSAoPT0wKSBucwoKY2FsYyA6OiBbSW50XSAtPiBbSW50XQpjYWxjIG5zID0gdGFpbCAkIHppcFdpdGggKC0pIG5zICQgbWFwICgqIChoZWFkIG5zKSkgbQoKZ2V0SW50TGlzdCA6OiBJTyBbSW50XQpnZXRJbnRMaXN0ID0gbWFwIHJlYWQgLiB3b3JkcyA8JD4gZ2V0TGluZQ==

OAowIC01IDAgNCAwIDEgLTEgMCAxCg==

8
0 -5 0 4 0 1 -1 0 1