import Control.Applicative
import Control.Monad

dist :: [Double] -> [Int]
dist xs = [h1, h2, h3, h4, h5, h6]
  where h1 = length $ filter (< 165.0) xs
        h2 = length $ filter (\x -> x < 170.0 && x >= 165.0) xs
        h3 = length $ filter (\x -> x < 175.0 && x >= 170.0) xs
        h4 = length $ filter (\x -> x < 180.0 && x >= 175.0) xs
        h5 = length $ filter (\x -> x < 185.0 && x >= 180.0) xs
        h6 = length $ filter (> 185.0) xs

duplicate :: [Int] -> String -> Int -> [String]
duplicate [] _ _ = []
duplicate (x:xs) c n = (show n ++ ":" ++ concat (replicate x c)) : duplicate xs c (n + 1)

solver ::[Double] -> [String]
solver xs =
  let ys = dist xs
  in
      duplicate ys "*" 1


main :: IO()
main = do
  n <- (read :: String -> Int) <$> getLine
  heights <- map (read :: String -> Double) <$> replicateM n getLine
  mapM_ putStrLn $ solver heights