let ham_to_int h =
  let rec ham_to_bit s lst =
    if not (String.contains_from s 1 'h') then begin
      if s = "hamu" then 1 :: lst
      else 0 :: lst
    end else
      let m = String.length s in
      if String.index_from s 1 'h' = 4 then ham_to_bit (String.sub s 4 (m - 4)) (1 :: lst)
      else ham_to_bit (String.sub s 3 (m - 3)) (0 :: lst) in
  ham_to_bit h [] |> List.fold_left (fun (i, s) n -> 2 * i, s + n * i) (1, 0) |> snd

let int_to_hum n =
  let rec int_to_bit n lst =
    if n = 0 then lst
    else int_to_bit (n / 2) (n mod 2 :: lst) in
  int_to_bit n []
  |> List.map (fun e -> if e = 1 then "hamu" else "ham")
  |> String.concat ""

let () = read_line () |> ham_to_int |> ( * ) 2 |> int_to_hum |> print_endline