concrete SentencesDan of Sentences = NumeralDan ** SentencesI - [NameNN] with 
  (Syntax = SyntaxDan),
  (Symbolic = SymbolicDan),
  (Lexicon = LexiconDan) ** open Prelude, SyntaxDan, (P = ParadigmsDan) in {

  lin NameNN = mkNP (P.mkPN "NN") ;

}