path: root/doc/tutorial/music/MusicLexFin.gf

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