Выдает ошибку Check appropriate syntax for test conditional element

(defrule data-input
(initial-fact)
=>
(printout t crlf " Quantity of rooms: ")
(printout t crlf " 1 - 1")
(printout t crlf " 2 - 2")
(printout t crlf " 3 - 3 " crlf)
(bind ?qrooms (read))
(assert (qrooms ?qrooms))
    
(printout t crlf " Balcony: ")
(printout t crlf " 0 - No ")
(printout t crlf " 1 - Yes" crlf)
 (bind ?balc (read))
(assert (balc ?balc))
 
(printout t crlf " Floor: ")
(printout t crlf " 1 - First ")
(printout t crlf " 2 - Second ")
(printout t crlf " 3 - Third " crlf)
 (bind ?flr (read))
(assert (flr ?flr))
 
(printout t crlf " District: ")
(printout t crlf " 1 - Centre")
             (printout t crlf " 2 - Fringe " crlf)
 (bind ?dist (read))
(assert (dist ?dist))
 
(printout t crlf " State of flat: ")
(printout t crlf " 1 - Bad ")
(printout t crlf " 2 - Good ")
(printout t crlf " 3 - New " crlf)
 (bind ?stateflat (read))
(assert (stateflat ?stateflat))
 
(printout t crlf "Max cost: ")
(bind ?cash (read))
(assert (cash ?cash))
) 
 
(defrule R1
(qrooms ?qrooms)
(stateflat ?stateflat)
(cash ?cash)
(test (and (= ?qrooms 1)(= ?stateflat 2)(and (>= ?cash 500000)(<= ?cash 1500000))) )
=>
(printout t crlf crlf "You choose good 1-room flat" crlf)
(assert (type "Однушки в хорошем состоянии до 1,5 млн"))
(assert (typeroom 1))) 
 
(defrule R2
(qrooms ?qrooms)
(stateflat ?stateflat)
(cash ?cash)
(test (and (= ?qrooms 1)(= ?stateflat 3)(and (>= ?cash 1000000)(<= ?cash 2000000))) )
=>
(printout t crlf crlf "You choose new 1-room flat" crlf)
(assert (type "Однушки новые до 2 млн"))
(assert (typeroom 2))) 
 
(defrule R3
(qrooms ?qrooms)
(stateflat ?stateflat)
(cash ?cash)
(test (and (= ?qrooms 2)(= ?stateflat 1)(and (>= ?cash 1000000)(<= ?cash 2000000))) )
=>
(printout t crlf crlf "You choose bad 2-room flat" crlf)
(assert (type "Двушки в плохом состоянии до 2 млн"))
(assert (typeroom3))) 
 
(defrule R4
(qrooms ?qrooms)
(stateflat ?stateflat)
(cash ?cash)
(test (and (= ?qrooms 2)(= ?stateflat 2)(and (>= ?cash 1500000)(<= ?cash 3000000))) )
=>
(printout t crlf crlf "You choose good 2-room flat" crlf)
(assert (type "Двушки в хорошем состоянии до 3 млн"))
(assert (typeroom 4))) 
 
(defrule R5
(qrooms ?qrooms)
(stateflat ?stateflat)
(cash ?cash)
(test (and (= ?qrooms 3)(= ?stateflat 3)(and (>= ?cash 3000000)(<= ?cash 5000000))) )
=>
(printout t crlf crlf "You choose good 3-room flat" crlf)
(assert (type "Трешки новые до 5 млн"))
(assert (typeroom 5))) 
 
(defrule R6
(flr ?flr)
(dist ?dist)
(balc ?balc)
(test (and (= ?flr 1)(= ?dist 1)(= ?balc 0) )
=>
(printout t crlf crlf "You choose 1 floor flat in Centre without balcony" crlf)
(assert (otherreq "Квартиры на первом этаже в центре без балкона"))
(assert (otherrequirements 1))) 
 
(defrule R7
(flr ?flr)
(dist ?dist)
(balc ?balc)
(test (and (= ?flr 1)(= ?dist 2)(= ?balc 0) )
=>
(printout t crlf crlf "You choose 1 floor flat in Fringe without balcony" crlf)
(assert (otherreq "Квартиры на первом этаже на окраине без балкона"))
(assert (otherrequirements 2))) 
 
(defrule R8
(flr ?flr)
(dist ?dist)
(balc ?balc)
(test (and (= ?flr 2)(= ?dist 1)(= ?balc 1) )
=>
(printout t crlf crlf "You choose 2 floor flat in Centre with balcony" crlf)
(assert (otherreq "Квартиры на втором этаже в центре с балконом"))
(assert (otherrequirements 3))) 
 
(defrule R9
(flr ?flr)
(dist ?dist)
(balc ?balc)
(test (and (= ?flr 2)(= ?dist 2)(= ?balc 0) )
=>
(printout t crlf crlf "You choose 2 floor flat in Fringe without balcony" crlf)
(assert (otherreq "Квартиры на втором этаже на окраине без балкона"))
(assert (otherrequirements 4))) 
 
(defrule R10
(flr ?flr)
(dist ?dist)
(balc ?balc)
(test (and (= ?flr 3)(= ?dist 2)(= ?balc 1) )
=>
(printout t crlf crlf "You choose 3 floor flat in Fringe with balcony" crlf)
(assert (otherreq "Квартиры на третьем этаже на окраине с балконом"))
(assert (otherrequirements 5))) 
 
(defrule R11
(typeroom ?typeroom)
(otherrequirements ? otherrequirements)
(test (and (= ? otherrequirements 1)(= ?typeroom 1)) )
=>
(printout t crlf crlf "You choose good 1-room flat on the first floor in Centre." crlf)
(printout t crlf crlf "1-комнатная квартира за 1,5 млн в хорошем состоянии на первом этаже без балкона. Находится в центре." crlf)
(assert (FlatConfig "Хорошая дешевая 1-комнатная квартира"))) 
 
(defrule R12
(typeroom ?typeroom)
(otherrequirements ? otherrequirements)
(test (and (= ? otherrequirements 5)(= ?typeroom 2)) )
=>
(printout t crlf crlf "You choose good 1-room flat on the third floor in Fringe." crlf)
(printout t crlf crlf "1-комнатная квартира за 1 млн, новая, на третьем этаже с балконом. Находится на окраине." crlf)
(assert (FlatConfig "Отличная дешевая 1-комнатная квартира"))) 
 
(defrule R13
(typeroom ?typeroom)
(otherrequirements ? otherrequirements)
(test (and (= ? otherrequirements 4)(= ?typeroom 3)) )
=>
(printout t crlf crlf "You choose bad 2-room flat on the second floor in Fringe." crlf)
(printout t crlf crlf "2-комнатная квартира за 2,5 млн в плохом состоянии на втором этаже без балкона. Находится на окраине." crlf)
(assert (FlatConfig "Плохая квартира"))) 
 
(defrule R14
(typeroom ?typeroom)
(otherrequirements ? otherrequirements)
(test (and (= ? otherrequirements 3)(= ?typeroom 4)) )
=>
(printout t crlf crlf "You choose good 2-room flat on the second floor in Centre." crlf)
(printout t crlf crlf "1-комнатная квартира за 3 млн в хорошем состоянии на первом этаже с балконом. Находится в центре." crlf)
(assert (FlatConfig "Хорошая квартира"))) 
 
(defrule R15
(typeroom ?typeroom)
(otherrequirements ? otherrequirements)
(test (and (= ? otherrequirements 5)(= ?typeroom 2)) )
=>
(printout t crlf crlf "You choose new 3-room flat on the first floor in Fringe." crlf)
(printout t crlf crlf "3-комнатная квартира за 1,5 млн, новая, на первом этаже без балкона. Находится на окраине." crlf)
(assert (FlatConfig "Отличная дешевая квартира")))