concrete NamesSom of Names = CatSom ** open ResSom, ParadigmsSom, Prelude in {

lin GivenName, MaleSurname, FemaleSurname = \n -> n ** {
    s = \\c => n.s ;
    isPron = False ;
    st = Definite ;
    empty = [] ;
    };

lin FullName gn sn = {
       s = \\c => gn.s ++ sn.s ;
       a = gn.a ;
       isPron = False ;
       st = Definite ;
       empty = [] ;
    } ;

  UseLN pn = pn ** {
    s = \\c => pn.s ;
    isPron = False ;
    st = Definite ;
    empty = [] ;
    } ;

  InLN ln = prepNP (mkPrep ku) (UseLN ln) ;

  AdjLN ap ln = ln ** {
    s = ap.s ! AF Sg Abs ++ ln.s
    } ;

}