import Control.Monad
import Control.Applicative

solve :: String -> String
solve [] = []
solve xs = do
  if length xs < 7
    then xs
    else do
      let (a:b:c:d:e:f:g:gs) = xs
      if (a:b:c:d:e:f:[g]) == "Hoshino"
        then "Hoshina" ++ (solve gs)
        else a : solve (b:c:d:e:f:g:gs)

main = do
  contents <- unlines . (map solve . lines) <$> getContents
  putStr contents