concrete LexiconHrv of Lexicon =
  CatHrv
  **
  open
    ResHrv, ParadigmsHrv
  in {


  lin
    cat_N = mkN "mačka" ;
    black_A = mkA "crni" ; 
    love_V2 = mkV2 (mkV "voljeti" "volim" "volio") ;
    see_V2 = mkV2 (mkV "vidjeti" "vidim" "vidio") ;
    walk_V = mkV "hodati" ;

    man_N = mkN "čovjek" ;
    woman_N = mkN "žena" ;
}