import Data.List

join :: String -> [String]-> String
join = intercalate

splitimpl :: String -> String -> String -> [String]
splitimpl _ xs [] = [xs]
splitimpl d xs (y:ys) = maybe a f $ stripPrefix d (y:ys)
    where
        a = splitimpl d (xs ++ [y]) ys
        f = (xs:) . splitimpl d ""
    

split :: String -> String -> [String]
split d = splitimpl d ""

replace :: String -> String -> String -> String
replace old new = join new . split old

solve :: String -> String
solve = replace "Hoshino" "Hoshina"

main :: IO ()
main  = getLine
    >>  getContents
    >>= mapM_ print . map solve . lines