import Control.Applicative
import Control.Monad

main :: IO ()
main = do
  k <- read <$> getLine :: IO Integer
  let base = k `div` 50
      m = k `mod` 50
      list = filter (/= base + 50 - m) [base..base+50]
  putStrLn "50"
  forM_ (init list) $ \i -> do
    putStr $ show i ++ " "
  putStrLn . show . last $ list
