nodeInformationFlow :: (Floating prob, Ord prob, Ord a)
                       => [String]
                       -> [String]
                       -> Model prob a
                       -> prob
nodeInformationFlow as bs m = undefined
nodeInformationFlow :: (Floating prob, Ord prob, Ord a)
                       => [String]
                       -> [String]
                       -> Model prob a
                       -> prob
nodeInformationFlow as bs m = undefined
nodeInformationFlow as bs m = undefined