import Control.Applicative
import Prelude

solver ::Int->[Int]
solver k
    |k == 0 = [1,1]
    |k == 1 = [0,3]
    |50 >= k = replicate k k
    |otherwise = replicate (50-r) (m-r) ++ ( replicate r (m+51-r))
    where
        m = (k `div` 50) + 49
	r = k `mod` 50

soln k 
    |1 >= k = 2
    |50 >= k = k
    |otherwise = 50


main :: IO ()
main = do
    -- 整数の入力
    k <- readLn :: IO Int
    print $ soln k
    putStrLn $ unwords.(map show) $ solver k

