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