grafo' n ((com,a,b):xs) ds= if(com=="une")then True: (grafo' n xs (une a b ds))
else (conectados a b ds):grafo' n xs ds
grafo' n ((com,a,b):xs) ds= if(com=="une")then True: (grafo' n xs (une a b ds))
else (conectados a b ds):grafo' n xs ds
grafo' n ((com,a,b):xs) ds= if(com=="une")then True: (grafo' n xs (une a b ds))
else (conectados a b ds):grafo' n xs ds