import Control.Applicative

solver ::Int->[Int]
solver k
    |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 
    |50 >= k = k
    |otherwise = 50

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

