An embryo for an Erlang bluetooth application