concrete MusicLexFre of MusicLex = CatFre ** open ParadigmsFre in {
    
  lin
    song_N = mkN "chanson" feminine ;
    american_A = mkA "américain" ;
  }