instance ResDan of ResScand = DiffDan ** open CommonScand, Prelude in {
} ;