2048 implement by erlang