Esta subrutina quedaria así: