concrete LiteralsCnc of Literals = open Prelude in {
  lincat S = SS ;
  lin
    mkString s = s ;
    mkInt s = s ;
    mkFloat s = s ;
}