--# -path=.
concrete GFBotEngNoLib of GFBot = {

  flags lexer = text; unlexer = text ;

  param Order = ODir | OQuest ;

  lincat Input = { s : Str } ; Output = { s : Str } ; Fact = { s : Order => Str } ;

  lin Question x = { s = x.s!OQuest ++ "?" } ;
      Affirmative x = { s = "yes" ++ "!" ++ x.s!ODir ++ "." } ;

      SkyBlue = { s = table {
		    ODir => ["the sky is blue"];
		    OQuest => ["is the sky blue"] } } ;

      BearShitInWoods = { s = table {
		    ODir => ["the bear shits in the forest"];
		    OQuest => ["does the bear shit in the forest"] } } ;

}