concrete MusicLexGer of MusicLex = 
     CatGer ** open ParadigmsGer in {
  lin
    song_N = mkN "Lied" "Lieder" neuter ;
    american_A = mkA "amerikanisch" ;
  }