
defmodule Solve do
    def exec() do
    	n = inpin()
        seq = [2, 3]
        
        res = Enum.reduce(seq, n, fn x, acc -> mathround(n, x) + acc end)  
        
        IO.puts res
    end
    
    defp mathround(n, k) do
        :math.pow(n, k) |> round
    end
    
    defp inpin() do
    	s = IO.gets("") 
        s |> String.trim() |> String.to_integer()
    end
end

Solve.exec()

