Ejemplo y programa casi funcionando