concrete MusicLexEng of MusicLex = CatEng ** open ParadigmsEng in {
    lin
      song_N = mkN "song" "songs" ;
      american_A = mkA "American" ;
    }