import Control.Applicative ((<$>), (<*>))
import Control.Monad
import Data.List
import Data.IORef

main :: IO ()
main = do
  n <- getl toInt
  unless (n == 0) $ do
    c0 <- newIORef 0
    c10 <- newIORef 0
    c20 <- newIORef 0
    c30 <- newIORef 0
    c40 <- newIORef 0
    c50 <- newIORef 0
    c60 <- newIORef 0
    forM_ [1..n] $ \i -> do
      x <- getl toInt
      if x < 10 then modifyIORef c0 (+1)
      else if x < 20 then modifyIORef c10 (+1)
      else if x < 30 then modifyIORef c20 (+1)
      else if x < 40 then modifyIORef c30 (+1)
      else if x < 50 then modifyIORef c40 (+1)
      else if x < 60 then modifyIORef c50 (+1)
      else modifyIORef c60 (+1)
    readIORef c0 >>= print
    readIORef c10 >>= print
    readIORef c20 >>= print
    readIORef c30 >>= print
    readIORef c40 >>= print
    readIORef c50 >>= print
    readIORef c60 >>= print
    main

toInt :: String -> Int
toInt s = read s

getl :: (String -> a) -> IO a
getl f = f <$> getLine