ParseState = object
  pos*: int
  fn*: string
  preservePos*: bool
  ln*, cl*: int

proc advance(str: string; p: var ParseState) {....raises: [], tags: [].}

proc currentInfo(p: ParseState): LineInfo {....raises: [], tags: [].}

proc init(str: string; p: var ParseState) {....raises: [], tags: [].}

proc parseAtomString(str: string; p: var ParseState): string {....raises: [],
    tags: [].}

proc parseLisp(str: string; filename = ""): seq[Lisp] {.
    ...raises: [Exception, ValueError], tags: [RootEffect].}

proc parseLisp(str: string; p: var ParseState): seq[Lisp] {.
    ...raises: [Exception, ValueError], tags: [RootEffect].}

proc parseList(str: string; p: var ParseState): Lisp {....raises: [Exception],
    tags: [RootEffect].}

proc parseQuotedString(str: string; p: var ParseState): string {....raises: [],
    tags: [].}

proc parseSingleLisp(str: string; p: var ParseState): Lisp {.
    ...raises: [Exception, ValueError], tags: [RootEffect].}