fs i ds=if((arreglo ds i 0)==i) then i
 else fs (arreglo ds i 0) ds
fs i ds=if((arreglo ds i 0)==i) then i
 else fs (arreglo ds i 0) ds
fs i ds=if((arreglo ds i 0)==i) then i
 else fs (arreglo ds i 0) ds