--# -path=.:present:prelude concrete SwadeshDan of Swadesh = CatDan ** SwadeshI with (Lang = LangDan) ;