concrete SentencesSwe of Sentences = NumeralSwe ** SentencesI - [PYesToNo] with 
  (Syntax = SyntaxSwe),
  (Symbolic = SymbolicSwe),
  (Lexicon = LexiconSwe)  ** open Prelude in {

  lin PYesToNo = mkPhrase (lin Utt (ss "jo")) ;

}