--fuera3 saca el elemento de la lista cuya posición es 3, 6, 9 (múltiplos de 3)--

fuera3::[Int]->[Int]
fuera3 []= []
fuera3 [a]= [a]
fuera3 [a,b]= [a,b]
fuera3 (a:b:c:xs)= a:b:fuera3 (xs)

-- saca el elemento del lugar n de la lista--

fueran::Int->[Int]->[Int]
fueran n []=[]
fueran 0 (a)= (a)
fueran 1 (a:xs)= (xs)
fueran n (a:xs)= a:fueran (n-1) (xs)

--Se agradece a Sofía Vitale por estos ejercicios.