instance LexiconGer of Lexicon = open StructuralGer, ParadigmsGer in {

  oper
    play = tvDir (vWeak "spielen") ;
    song = nBuch "lied" "lieder" ;

    yesterday = npReg "Yesterday" ;
}