KataPotter in erlang