concrete SentencesSwe of Sentences = NumeralSwe ** SentencesI - [
    PYesToNo, NameNN,
    DrinkNumber  -- should be utrum gender when countable
 ] with 
  (Syntax = SyntaxSwe),
  (Symbolic = SymbolicSwe),
  (Lexicon = LexiconSwe) ** open Prelude, SyntaxSwe, (P = ParadigmsSwe) in {

  lin 
    PYesToNo = mkPhrase (lin Utt (ss "jo")) ;
    NameNN = mkNP (P.mkPN "NN") ;
    DrinkNumber n d = mkNP n (mkCN (P.mkN [] [] [] [] P.utrum) (lin Adv (mkUtt d))) ; --- empty classifier - quite a hack...
  
}