--# -path=.:present:prelude

concrete SwadeshSpa of Swadesh = CatSpa ** SwadeshI with
  (Lang = LangSpa) ;