(defrule anteil_linie_gesamtstationen
   (object (is-a Linie) (Bezeichnung ?bez) (hat_Stationen $?liste))
	   =>   (printout t "Anzahl der Stationen der " ?bez ": " ) 
   (bind ?count 0)
   (bind ?gesamt 54)

   (foreach ?station $?liste (bind ?count (+ ?count 1)))
   (printout t ?count " Prozent der Gesamtstationen(gerundet):" (round (/ ?count (/ ?gesamt 100))) crlf)
)