An parser example by Erlang