(defrule wybor1z4
  (wybor)
  =>
  (printout t "`-----------------------------------------'" crlf)
  (printout t "Ktora z ponizszych odpowiedzi jest prawidlowa?"crlf)
  (printout t "`-----------------------------------------'" crlf)
  (printout t "Odpowiedz 1"crlf)
  (printout t "Odpowiedz 2"crlf)
  (printout t "Odpowiedz 3"crlf)
  (printout t "Odpowiedz 4"crlf)
  (printout t "Wybierz: "crlf)
  (bind ?wybor2 (readline))
  (switch ?wybor2
    (case "1" then
      (bind ?wybuch boom)
      (printout t "Boom"crlf)
    )
    (case "2" then
      (bind ?wybuch boom)
      (printout t "Boom"crlf)
    )
    (case "3" then
      (bind ?wybuch boom)
      (printout t "Boom"crlf)
    )
    (case "4" then
      (printout t "Odpowiedz ok"crlf)
    )
  )
  (assert (wybor2 ?wybor2))
)