safeHead :: [x] -> Maybe x
safeHead = _