det r (x, y) = if inCircle then '*' else ' ' where

  inCircle = (x-r)*(x-r) + (y-r)*(y-r) < r*r


main = do

  r <- getLine >>= (return . read) :: IO Int

  mapM_ putStrLn $ map (map (det r)) [[(x, y) | y <- [1..r*2]] | x <- [1..r*2]]