arseTests = testGroup "parse tests"
  [ testCase "(+ 0 (*))" $
    Right testArithExpr @=? G.p
testArithExprSexp :: Sexp
testArithExprSexp = List' [Symbol' "+", Int' 0, List' [Symbol' "*"]]
testArithExprSexp = List' [Symbol' "+", Int' 0, List' [Symbol' "*"]]