-module('Main').
-export([main/1]).

main(_) ->
    {ok, [S]} = io:fread("", "~s"),
    case lists:last(S) == $s of
        true ->
            io:format("~s~s~n", [S, "es"]);
        false ->
            io:format("~s~s~n", [S, "s"])
    end,
    halt().