concrete MusicLexFin of MusicLex = 
     CatFin ** open ParadigmsFin in {
  lin
    song_N = regN "kappale" ; ---- mkN
    american_A = regA "amerikkalainen" ; ---- mkA
  }