1 2 3 4
--# -path=.:scandinavian:abstract:common concrete SymbolDan of Symbol = CatDan ** SymbolScand with (ResScand = ResDan) ;