module Main ( main ) where  -- this is the default module header

main = do
  line <- getLine
  let ws = words line
  case ws of
    [] -> return ()
    _  -> do
      putStrLn ("You entered " ++ show (length ws) ++ " words")
      main