star :: Find a a
star = Find $ \(a, fp) -> entries fp >>= return . map (\gp -> (a, gp))
star :: Find a a
star = Find $ \(a, fp) -> entries fp >>= return . map (\gp -> (a, gp))
star = Find $ \(a, fp) -> entries fp >>= return . map (\gp -> (a, gp))