getVal :: (GasModel -> GasCond -> a) -> GasData -> a
getVal f dat = f (model dat) (condition dat)
getVal :: (GasModel -> GasCond -> a) -> GasData -> a
getVal f dat = f (model dat) (condition dat)
getVal f dat = f (model dat) (condition dat)