concrete ClothesIta of Clothes = CommentsIta ** 
    open SyntaxIta, ParadigmsIta in {
  lin
    Shirt = mkCN (mkN "camicia") ;
    Jacket = mkCN (mkN "giacca") ;
    Comfortable = mkAP (mkA "comodo") ;
    Elegant = mkAP (mkA "elegante") ;
}