A forth implemented in Erlang