!7

sS rules = [=[
  keyword greeting => say "Hello, welcome to Manisha Mozumder (Business Consulting Services)!\nHow can I help you?"
  
  keyword location => say "We are located in Germany. But we are a global company. So, we serve all over the world."
  
  keyword services => say [[Our Specializations are: 
  a. 4 Phases consulting services 
  b. Business Plan 
  c. Business Problem Solving]]
   
  keyword phases => say [[We consult in four phases like: 
  a. Incubator 
  b. Planning 
  c. Implementation & Market Entry 
  d. Evaluation
  
  Our main purpose of four phases consulting services is to support the business from the route level to market entry. We also provide services after that if our customers demand that.]]
  
  keyword quote => say [[Please email at manisha@mmozumder.com to get a quote for your expected service or click on "ask for quote" on our website.]]
  
  // How long it takes to finish a business plan?
  
  keyword "how long, duration" => say "7‐15 working days depending on the business/products/services"
   
  // 7. How can I contact with you? Or Can I have an appointment? 
  
  keyword "contact, appointment" => say "Please give us your expected date, time and mode of communication (Phone Number/Whatsapp/Skype address/Email Address). Someone from our office will contact with you on that time."
  
  // 8. Can you tell me about the sections of Business Plan? Or What are the parts which would be added in a business plan? 
  
  keyword "sections, parts" => say [[There would be 4‐5 parts in general. Those are:
   
  Core Planning, Marketing Plan, Strategies for Personnel Planning and Financials. 
  
  Please ask for quote to know more details.]]
            
  don't know => say "Please ask for quote to know about it."
  don't know => say [[Please give us your expected date, time and mode of communication (Phone Number/Whatsapp/Skype address/Email Address). Someone from our office will contact with you soon.]]
  
  theory test {
    on "fjdiojgogfdo" expect (don't know)
  }
  
  afterwards => proc {
    unless (say $x):
      don't know
  }
]=];

cmodule MMORules > DynPrintLog {
  start-thread {
    PhilosophyBot1 bot = new(rules);
    bot.run();
    bot.openTheory("test");
    for (SS map : bot.matchFacts("on $a expect $b")) {
      PhilosophyBot1 bot2 = new(rules);
      bot.run();
      bot.addFact(bot.format("input $a", map));
      bot.addFact(bot.format("expect $b", map));
      bot.run();
      bot.addFact("afterwards");
      bot.run();
      bot.checkExpectations();
    }
  }
}