Desarrollar un programa que permita cargar 5 nombres de personas y sus edades respectivas. Luego de realizar la carga por teclado de todos los datos imprimir los nombres de las personas mayores de edad (mayores o iguales a 18 años) y contar cuantas con mayores de edad y cuantas son menores de edad

LIPS
(defun cargar-datos ()
  (bind ?nombre (read))
  (bind ?edad (read))
  (assert (persona (nombre ?nombre) (edad ?edad)))
)
(defrule imprimir-mayores 
  (persona (nombre ?nombre) (edad ?edad))
  (test (>= ?edad 18))
  =>
  (printout t ?nombre crlf)
)
(defrule contar-mayores
  (persona (nombre ?nombre) (edad ?edad))
  (test (>= ?edad 18))
  =>
  (bind ?mayores (+ 1 ?mayores))
)
(defrule contar-menores
  (persona (nombre ?nombre) (edad ?edad))
  (test (< ?edad 18))
  =>
  (bind ?menores (+ 1 ?menores))
)
(defrule imprimir-resultados
  (