main :: IO ()
main = do
  [h, w] <- map toInt . words <$> getLine
  input <- mapM (const getLine) [1..h] :: IO [String]
  let sharpline = replicate (w + 2) '#'
  putStrLn sharpline
  mapM_ (putStrLn . (\s -> "#" ++ s ++ "#")) input
  putStrLn sharpline

toInt :: String -> Int
toInt = read