instance LexiconFre of Lexicon = open StructuralFre, ParadigmsFre in {

  oper
    play = tvDir (vAimer "jouer") ;
    song = nReg "chanson" feminine ;

    yesterday = mkNP "Yesterday" masculine ;

}