instance LexiconEng of Lexicon = open StructuralEng, ParadigmsEng in {

  oper
    play = tvDir (vReg "play") ;
    song = nReg "song" nonhuman ;

    yesterday = npReg "Yesterday" ;

}