getBR :: Monad m
      => (BRH2 -> Double)
      -> Pipe (Maybe BRH2) (Maybe Double) (ReaderT InputParam m) ()
getBR select = do
    brs0 <- await
    yield $ case brs0 of
                Nothing  -> Nothing
                Just brs -> Just (select brs)

getBRHpW :: Monad m => Pipe (Maybe BRH2) (Maybe Double) (ReaderT InputParam m) ()
getBRHpW = getBR _h2HpmW

runSushiWithBR :: MonadIO m
               => Double
               -> FilePath