main = interact $ put . sol . read

put = unlines . map (unwords . map show)

n = 50

sol :: Integer -> [[Integer]]
sol k = [[n],map (+ q) as]
  where
  (q,r) = k `quotRem` n
  as = replicate (fromIntegral r) n ++ replicate (fromIntegral (n-r)) (n-r-1)