1 2 3 4 5
concrete MusicLexEng of MusicLex = CatEng ** open ParadigmsEng in { lin song_N = regN "song" ; american_A = regA "American" ; }