(setq database '(
  ((kante a b))
  ((kante a c))
  ((kante a d))
  ((kante c e))
  ((kante c f))
  ((kante d g))
  ((kante g i))
  ((kante i j))
  ((kante b e))
  ((kante f h))
  ((weg (a)(b)) (kante (a)(b)))
  ((weg (a)(b)) (kante (a)(c)) (weg (c)(b)))
))
(init)