lol :: [[a]] -> Maybe a
lol (reverse -> (reverse -> x:_):_) = Just x
lol (reverse -> (reverse -> [] ):_) = Nothing
lol (reverse -> []) = Nothing

{-
Hask.hs:16:1: warning: [-Wincomplete-patterns]
    Pattern match(es) are non-exhaustive
    In an equation for `lol':
        Patterns not matched:
            []
            (_:_)
   |
16 | lol (reverse -> (reverse -> x:_):_) = Just x
   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
-}