Skip to content

Instantly share code, notes, and snippets.

@rebcabin

rebcabin/core.clj

Created May 26, 2023 16:34
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save rebcabin/7b2f14fc83149181feaa6ee136953012 to your computer and use it in GitHub Desktop.
Save rebcabin/7b2f14fc83149181feaa6ee136953012 to your computer and use it in GitHub Desktop.
Download ZIP
Too big for Clojure reader?
Raw
core.clj
(ns reader-test.core
(:gen-class))
'[(=
(Var 2 a)
(ListConstant
[(StringConstant
"ab"
(Character 1 2 () [])
)
(StringConstant
"abc"
(Character 1 3 () [])
)
(StringConstant
"abcd"
(Character 1 4 () [])
)]
(List
(Character 1 2 () [])
)
)
()
)
(=
(Var 2 b)
(ListConstant
[(IntegerConstant 1 (Integer 4 []))
(IntegerConstant 2 (Integer 4 []))
(IntegerConstant 3 (Integer 4 []))
(IntegerConstant 4 (Integer 4 []))]
(List
(Integer 4 [])
)
)
()
)
(=
(Var 2 c)
(ListConstant
[(RealConstant
1.230000
(Real 8 [])
)
(RealConstant
324.300000
(Real 8 [])
)
(RealConstant
56.431000
(Real 8 [])
)
(RealConstant
90.500000
(Real 8 [])
)
(RealConstant
34.100000
(Real 8 [])
)]
(List
(Real 8 [])
)
)
()
)
(=
(Var 2 d)
(ListConstant
[]
(List
(Integer 4 [])
)
)
()
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 a)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(StringConstant
"'"
(Character 1 1 () [])
)
(ListItem
(Var 2 a)
(Var 2 __list_iterator)
(Character 1 -2 () [])
()
)
(StringConstant
"'"
(Character 1 1 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator)
Lt
(IntegerBinOp
(ListLen
(Var 2 a)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
()
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator1)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 b)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(ListItem
(Var 2 b)
(Var 2 __list_iterator1)
(Integer 4 [])
()
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator1)
Lt
(IntegerBinOp
(ListLen
(Var 2 b)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
()
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator2)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 c)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(ListItem
(Var 2 c)
(Var 2 __list_iterator2)
(Real 8 [])
()
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator2)
Lt
(IntegerBinOp
(ListLen
(Var 2 c)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
()
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator3)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 d)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(ListItem
(Var 2 d)
(Var 2 __list_iterator3)
(Integer 4 [])
()
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator3)
Lt
(IntegerBinOp
(ListLen
(Var 2 d)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
()
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator4)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 a)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(StringConstant
"'"
(Character 1 1 () [])
)
(ListItem
(Var 2 a)
(Var 2 __list_iterator4)
(Character 1 -2 () [])
()
)
(StringConstant
"'"
(Character 1 1 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator4)
Lt
(IntegerBinOp
(ListLen
(Var 2 a)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
(StringConstant
" "
(Character 1 1 () [])
)
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator5)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 a)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(StringConstant
"'"
(Character 1 1 () [])
)
(ListItem
(Var 2 a)
(Var 2 __list_iterator5)
(Character 1 -2 () [])
()
)
(StringConstant
"'"
(Character 1 1 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator5)
Lt
(IntegerBinOp
(ListLen
(Var 2 a)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
(StringConstant
" "
(Character 1 1 () [])
)
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator6)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 b)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(ListItem
(Var 2 b)
(Var 2 __list_iterator6)
(Integer 4 [])
()
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator6)
Lt
(IntegerBinOp
(ListLen
(Var 2 b)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
(StringConstant
" "
(Character 1 1 () [])
)
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator7)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 c)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(ListItem
(Var 2 c)
(Var 2 __list_iterator7)
(Real 8 [])
()
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator7)
Lt
(IntegerBinOp
(ListLen
(Var 2 c)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
(StringConstant
" "
(Character 1 1 () [])
)
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator8)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 d)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(ListItem
(Var 2 d)
(Var 2 __list_iterator8)
(Integer 4 [])
()
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator8)
Lt
(IntegerBinOp
(ListLen
(Var 2 d)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
()
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator9)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 a)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(StringConstant
"'"
(Character 1 1 () [])
)
(ListItem
(Var 2 a)
(Var 2 __list_iterator9)
(Character 1 -2 () [])
()
)
(StringConstant
"'"
(Character 1 1 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator9)
Lt
(IntegerBinOp
(ListLen
(Var 2 a)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
(StringConstant
" "
(Character 1 1 () [])
)
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator10)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 a)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(StringConstant
"'"
(Character 1 1 () [])
)
(ListItem
(Var 2 a)
(Var 2 __list_iterator10)
(Character 1 -2 () [])
()
)
(StringConstant
"'"
(Character 1 1 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator10)
Lt
(IntegerBinOp
(ListLen
(Var 2 a)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
(StringConstant
" "
(Character 1 1 () [])
)
)
(Print
()
[(IntegerConstant 1 (Integer 4 []))]
()
(StringConstant
" "
(Character 1 1 () [])
)
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator11)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 b)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(ListItem
(Var 2 b)
(Var 2 __list_iterator11)
(Integer 4 [])
()
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator11)
Lt
(IntegerBinOp
(ListLen
(Var 2 b)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
(StringConstant
" "
(Character 1 1 () [])
)
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator12)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 c)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(ListItem
(Var 2 c)
(Var 2 __list_iterator12)
(Real 8 [])
()
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator12)
Lt
(IntegerBinOp
(ListLen
(Var 2 c)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
(StringConstant
" "
(Character 1 1 () [])
)
)
(Print
()
[(RealConstant
1.100000
(Real 8 [])
)]
()
(StringConstant
" "
(Character 1 1 () [])
)
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator13)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 d)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(ListItem
(Var 2 d)
(Var 2 __list_iterator13)
(Integer 4 [])
()
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator13)
Lt
(IntegerBinOp
(ListLen
(Var 2 d)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
()
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator14)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(ListConstant
[(IntegerUnaryMinus
(IntegerConstant 3 (Integer 4 []))
(Integer 4 [])
(IntegerConstant -3 (Integer 4 []))
)
(IntegerConstant 2 (Integer 4 []))
(IntegerConstant 1 (Integer 4 []))
(IntegerConstant 0 (Integer 4 []))]
(List
(Integer 4 [])
)
)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(ListItem
(ListConstant
[(IntegerUnaryMinus
(IntegerConstant 3 (Integer 4 []))
(Integer 4 [])
(IntegerConstant -3 (Integer 4 []))
)
(IntegerConstant 2 (Integer 4 []))
(IntegerConstant 1 (Integer 4 []))
(IntegerConstant 0 (Integer 4 []))]
(List
(Integer 4 [])
)
)
(Var 2 __list_iterator14)
(Integer 4 [])
()
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator14)
Lt
(IntegerBinOp
(ListLen
(ListConstant
[(IntegerUnaryMinus
(IntegerConstant 3 (Integer 4 []))
(Integer 4 [])
(IntegerConstant -3 (Integer 4 []))
)
(IntegerConstant 2 (Integer 4 []))
(IntegerConstant 1 (Integer 4 []))
(IntegerConstant 0 (Integer 4 []))]
(List
(Integer 4 [])
)
)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
()
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator15)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(ListConstant
[(StringConstant
"a"
(Character 1 1 () [])
)
(StringConstant
"b"
(Character 1 1 () [])
)
(StringConstant
"c"
(Character 1 1 () [])
)
(StringConstant
"d"
(Character 1 1 () [])
)
(StringConstant
"e"
(Character 1 1 () [])
)
(StringConstant
"f"
(Character 1 1 () [])
)]
(List
(Character 1 1 () [])
)
)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(StringConstant
"'"
(Character 1 1 () [])
)
(ListItem
(ListConstant
[(StringConstant
"a"
(Character 1 1 () [])
)
(StringConstant
"b"
(Character 1 1 () [])
)
(StringConstant
"c"
(Character 1 1 () [])
)
(StringConstant
"d"
(Character 1 1 () [])
)
(StringConstant
"e"
(Character 1 1 () [])
)
(StringConstant
"f"
(Character 1 1 () [])
)]
(List
(Character 1 1 () [])
)
)
(Var 2 __list_iterator15)
(Character 1 1 () [])
()
)
(StringConstant
"'"
(Character 1 1 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator15)
Lt
(IntegerBinOp
(ListLen
(ListConstant
[(StringConstant
"a"
(Character 1 1 () [])
)
(StringConstant
"b"
(Character 1 1 () [])
)
(StringConstant
"c"
(Character 1 1 () [])
)
(StringConstant
"d"
(Character 1 1 () [])
)
(StringConstant
"e"
(Character 1 1 () [])
)
(StringConstant
"f"
(Character 1 1 () [])
)]
(List
(Character 1 1 () [])
)
)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
()
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator16)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(ListConstant
[(IntegerConstant 1 (Integer 4 []))
(IntegerConstant 2 (Integer 4 []))
(IntegerConstant 3 (Integer 4 []))
(IntegerConstant 4 (Integer 4 []))]
(List
(Integer 4 [])
)
)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(ListItem
(ListConstant
[(IntegerConstant 1 (Integer 4 []))
(IntegerConstant 2 (Integer 4 []))
(IntegerConstant 3 (Integer 4 []))
(IntegerConstant 4 (Integer 4 []))]
(List
(Integer 4 [])
)
)
(Var 2 __list_iterator16)
(Integer 4 [])
()
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator16)
Lt
(IntegerBinOp
(ListLen
(ListConstant
[(IntegerConstant 1 (Integer 4 []))
(IntegerConstant 2 (Integer 4 []))
(IntegerConstant 3 (Integer 4 []))
(IntegerConstant 4 (Integer 4 []))]
(List
(Integer 4 [])
)
)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
(StringConstant
" "
(Character 1 1 () [])
)
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator17)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 a)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(StringConstant
"'"
(Character 1 1 () [])
)
(ListItem
(Var 2 a)
(Var 2 __list_iterator17)
(Character 1 -2 () [])
()
)
(StringConstant
"'"
(Character 1 1 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator17)
Lt
(IntegerBinOp
(ListLen
(Var 2 a)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
(StringConstant
" "
(Character 1 1 () [])
)
)
(Print
()
[(StringConstant
"["
(Character 1 1 () [])
)]
()
(StringConstant
""
(Character 1 0 () [])
)
)
(DoLoop
()
((Var 2 __list_iterator18)
(IntegerConstant 0 (Integer 4 []))
(IntegerBinOp
(ListLen
(Var 2 c)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(IntegerConstant 1 (Integer 4 [])))
[(Print
()
[(ListItem
(Var 2 c)
(Var 2 __list_iterator18)
(Real 8 [])
()
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)
(If
(IntegerCompare
(Var 2 __list_iterator18)
Lt
(IntegerBinOp
(ListLen
(Var 2 c)
(Integer 4 [])
()
)
Sub
(IntegerConstant 1 (Integer 4 []))
(Integer 4 [])
()
)
(Logical 4 [])
()
)
[(Print
()
[(StringConstant
", "
(Character 1 2 () [])
)]
(StringConstant
""
(Character 1 0 () [])
)
(StringConstant
""
(Character 1 0 () [])
)
)]
[]
)]
)
(Print
()
[(StringConstant
"]"
(Character 1 1 () [])
)]
()
()
)]
(defn -main
"I don't do a whole lot ... yet."
[& args]
(println "Hello, World!"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment