-- dave = ("Dave",100,["tejer","escribirPoesia"],[ardilla,libroPedKing])

-- nombre barbaro = (n,_,_,_)
-- fuerza barbaro = (_,f,_,_)
--listaHabilidades barbaro = (_,_,lsHab,_)
--listaObjetos barbaro = (_,_,_,lsObj)

sinRepetidos [] = []
sinRepetidos (x:xs) | elem x xs = sinRepetidos xs
					| otherwise = x : sinRepetidos xs
