Implement a very basic first stab at lisp parser.

src/compare/parse.rs

@@ -1,7 +1,20 @@
 use std::path::Path;
 use std::process::Command;
 
+use crate::compare::sexp::sexp;
+
 pub fn emacs_parse_org_document<'a, C>(file_path: C) -> Result<String, Box<dyn std::error::Error>>
+where
+    C: AsRef<Path>,
+{
+    let org_sexp = emacs_parse_org_document_to_sexp(file_path)?;
+    let parsed_sexp = sexp(org_sexp.as_str()).expect("Parse failure");
+    todo!()
+}
+
+fn emacs_parse_org_document_to_sexp<'a, C>(
+    file_path: C,
+) -> Result<String, Box<dyn std::error::Error>>
 where
     C: AsRef<Path>,
 {