#!/usr/bin/env escript
-mode(compile).
main([File]) ->
    {ok, Bin} = file:read_file(File),
    [Str] = string:tokens(binary_to_list(Bin), "\t\n "),
    {N, _Rest} = string:to_integer(Str),
    lists:foreach(fun action/1, lists:seq(1, N)).
action(I) when I rem 3 == 0, I rem 5 == 0 -> io:format("Hop\n");
action(I) when I rem 3 == 0 -> io:format("Hoppity\n");
action(I) when I rem 5 == 0 -> io:format("Hophop\n");
action(_I) -> ok.