let (rs, es) = getErrors ls
    in (l:rs, es)

isOpSymbol :: Char ->
getErrors (l:ls) =
    let (rs, es) = getErrors ls
    in (l:rs, es)
getErrors (l:ls) =
    let (rs, es) = getErrors ls
    in (l:rs, es)