(deffacts initial-facts
   "Исходные факты для запуска процесса создания веб-сайта"
   (client Ivan)
)
 
(defrule wants-to-create-website
   (client Ivan)
=>
   (printout t "Иван, хочешь создать веб-сайт? (yes/no): ")
   (assert (wants-to-create-website (read)))
)
 
(defrule has-budget
   (wants-to-create-website yes)
=>
   (printout t "Есть ли у тебя бюджет на создание сайта? (yes/no): ")
   (assert (has-budget (read)))
)
 
(defrule start-TZ
   (has-budget yes)
=>
   (printout t "Начинаем разработку ТЗ." crlf)
   (assert (can-start-TZ yes))
)
 
(defrule develop-TZ
   (can-start-TZ yes)
=>
   (printout t "Разработано ТЗ." crlf)
   (assert (developed-TZ yes))
)
 
(defrule approve-TZ
   (developed-TZ yes)
=>
   (printout t "ТЗ утверждено?" crlf)
   (printout t "Подтверждаешь? (yes/no): ")
   (assert (approved-TZ (read)))
)
 
(defrule design-website
   (approved-TZ yes)
=>
   (printout t "Разработан дизайн сайта." crlf)
   (assert (designed-website yes))
)
 
(defrule implement-website
   (designed-website yes)
=>
   (printout t "Сайт реализован." crlf)
   (assert (implemented-website yes))
)
 
(defrule test-website
   (implemented-website yes)
=>
   (printout t "Сайт протестирован." crlf)
   (assert (tested-website yes))
)
 
(defrule setup-hosting
   (tested-website yes)
=>
   (printout t "Настроены хостинг и домен?" crlf)
   (printout t "Подтверждаешь? (yes/no): ")
   (assert (hosting-setup (read)))
)
 
(defrule launch-website
   (hosting-setup yes)
=>
   (printout t "Сайт запущен!" crlf)
   (assert (website-launched yes))
)
 
(exit)
; empty line at the end

KGRlZmZhY3RzIGluaXRpYWwtZmFjdHMKICAgItCY0YHRhdC+0LTQvdGL0LUg0YTQsNC60YLRiyDQtNC70Y8g0LfQsNC/0YPRgdC60LAg0L/RgNC+0YbQtdGB0YHQsCDRgdC+0LfQtNCw0L3QuNGPINCy0LXQsS3RgdCw0LnRgtCwIgogICAoY2xpZW50IEl2YW4pCikKCihkZWZydWxlIHdhbnRzLXRvLWNyZWF0ZS13ZWJzaXRlCiAgIChjbGllbnQgSXZhbikKPT4KICAgKHByaW50b3V0IHQgItCY0LLQsNC9LCDRhdC+0YfQtdGI0Ywg0YHQvtC30LTQsNGC0Ywg0LLQtdCxLdGB0LDQudGCPyAoeWVzL25vKTogIikKICAgKGFzc2VydCAod2FudHMtdG8tY3JlYXRlLXdlYnNpdGUgKHJlYWQpKSkKKQoKKGRlZnJ1bGUgaGFzLWJ1ZGdldAogICAod2FudHMtdG8tY3JlYXRlLXdlYnNpdGUgeWVzKQo9PgogICAocHJpbnRvdXQgdCAi0JXRgdGC0Ywg0LvQuCDRgyDRgtC10LHRjyDQsdGO0LTQttC10YIg0L3QsCDRgdC+0LfQtNCw0L3QuNC1INGB0LDQudGC0LA/ICh5ZXMvbm8pOiAiKQogICAoYXNzZXJ0IChoYXMtYnVkZ2V0IChyZWFkKSkpCikKCihkZWZydWxlIHN0YXJ0LVRaCiAgIChoYXMtYnVkZ2V0IHllcykKPT4KICAgKHByaW50b3V0IHQgItCd0LDRh9C40L3QsNC10Lwg0YDQsNC30YDQsNCx0L7RgtC60YMg0KLQly4iIGNybGYpCiAgIChhc3NlcnQgKGNhbi1zdGFydC1UWiB5ZXMpKQopCgooZGVmcnVsZSBkZXZlbG9wLVRaCiAgIChjYW4tc3RhcnQtVFogeWVzKQo9PgogICAocHJpbnRvdXQgdCAi0KDQsNC30YDQsNCx0L7RgtCw0L3QviDQotCXLiIgY3JsZikKICAgKGFzc2VydCAoZGV2ZWxvcGVkLVRaIHllcykpCikKCihkZWZydWxlIGFwcHJvdmUtVFoKICAgKGRldmVsb3BlZC1UWiB5ZXMpCj0+CiAgIChwcmludG91dCB0ICLQotCXINGD0YLQstC10YDQttC00LXQvdC+PyIgY3JsZikKICAgKHByaW50b3V0IHQgItCf0L7QtNGC0LLQtdGA0LbQtNCw0LXRiNGMPyAoeWVzL25vKTogIikKICAgKGFzc2VydCAoYXBwcm92ZWQtVFogKHJlYWQpKSkKKQoKKGRlZnJ1bGUgZGVzaWduLXdlYnNpdGUKICAgKGFwcHJvdmVkLVRaIHllcykKPT4KICAgKHByaW50b3V0IHQgItCg0LDQt9GA0LDQsdC+0YLQsNC9INC00LjQt9Cw0LnQvSDRgdCw0LnRgtCwLiIgY3JsZikKICAgKGFzc2VydCAoZGVzaWduZWQtd2Vic2l0ZSB5ZXMpKQopCgooZGVmcnVsZSBpbXBsZW1lbnQtd2Vic2l0ZQogICAoZGVzaWduZWQtd2Vic2l0ZSB5ZXMpCj0+CiAgIChwcmludG91dCB0ICLQodCw0LnRgiDRgNC10LDQu9C40LfQvtCy0LDQvS4iIGNybGYpCiAgIChhc3NlcnQgKGltcGxlbWVudGVkLXdlYnNpdGUgeWVzKSkKKQoKKGRlZnJ1bGUgdGVzdC13ZWJzaXRlCiAgIChpbXBsZW1lbnRlZC13ZWJzaXRlIHllcykKPT4KICAgKHByaW50b3V0IHQgItCh0LDQudGCINC/0YDQvtGC0LXRgdGC0LjRgNC+0LLQsNC9LiIgY3JsZikKICAgKGFzc2VydCAodGVzdGVkLXdlYnNpdGUgeWVzKSkKKQoKKGRlZnJ1bGUgc2V0dXAtaG9zdGluZwogICAodGVzdGVkLXdlYnNpdGUgeWVzKQo9PgogICAocHJpbnRvdXQgdCAi0J3QsNGB0YLRgNC+0LXQvdGLINGF0L7RgdGC0LjQvdCzINC4INC00L7QvNC10L0/IiBjcmxmKQogICAocHJpbnRvdXQgdCAi0J/QvtC00YLQstC10YDQttC00LDQtdGI0Yw/ICh5ZXMvbm8pOiAiKQogICAoYXNzZXJ0IChob3N0aW5nLXNldHVwIChyZWFkKSkpCikKCihkZWZydWxlIGxhdW5jaC13ZWJzaXRlCiAgIChob3N0aW5nLXNldHVwIHllcykKPT4KICAgKHByaW50b3V0IHQgItCh0LDQudGCINC30LDQv9GD0YnQtdC9ISIgY3JsZikKICAgKGFzc2VydCAod2Vic2l0ZS1sYXVuY2hlZCB5ZXMpKQopCgooZXhpdCkKOyBlbXB0eSBsaW5lIGF0IHRoZSBlbmQ=