import Data.List

wcl :: IO ()
wcl = (length . words <$> getLine) >>= print
         
priemer = priemer' 0 0 >>= putStrLn . ("Priemer je: "++) . show
priemer' sucet pocet = do
  c <- readLn
  if c == 0 then return $ sucet / pocet
  else priemer' (sucet + c) (pocet + 1)

printTabulka :: Show a => [[a]]  -> IO()
printTabulka = mapM_  (putStrLn . intercalate ", " . map show)  
main = undefined

vydelDvojici = do
  (/) <$> readLn <*> readLn >>= print