Creado fichero erlang para capítulo 4