2048 written in erlang