getOneBeforeLast : List a -> Maybe a
getOneBeforeLast list =
  case list of
    [] -> Nothing
    a :: _ :: [] -> Just a
    _ :: a -> getOneBeforeLast  a

-- getOneBeforeLast [1,2,3,4,5] == [4]