use strict;
use warnings;

my $num = <STDIN>;
$num =~ s/hamu/1/g;
$num =~ s/ham/0/g;
print map {$_ == 0 ? 'ham' : 'hamu'} split('', sprintf("%b", ord("0b".$num) * 2));