#!/usr/bin/env perl
use strict;
open(my $input, "<", $ARGV[0]);
my $n = <$input>;
foreach my $i (1 .. $n) {
    if ($i % 3 == 0 && $i % 5 == 0) {
        print "Hop\n";
    } elsif ($i % 3 == 0) {
        print "Hoppity\n";
    } elsif ($i % 5 == 0) {
        print "Hophop\n";
    }
}