concrete CityEng of City = open Prelude in {
  lin
    MkCity s = s ;
} ;