{-# htermination max :: Ord a => (Maybe a) -> (Maybe a) -> (Maybe a) #-}