let ``No.423 ハムスター語初級（数詞）``() =
  
  let n = stdin.ReadLine()
  System.Convert.ToInt32( n.Replace("hamu", "1").Replace("ham", "0") , 2)
  |> fun num -> System.Convert.ToString(num * 2, 2)
  |> fun str -> str.Replace("1" , "hamu").Replace("0", "ham")
  |> stdout.WriteLine

  ()
``No.423 ハムスター語初級（数詞）``()