selsOf ds                       = concat [ ss | (_,DRec _ _ _ ss) <- ds ]
selsOf ds                       = concat [ ss | (_,DRec _ _ _ ss) <- ds ]
selsOf ds                       = concat [ ss | (_,DRec _ _ _ ss) <- ds ]