; lime standard library is loaded automatically
; print a string
(print "Hello " "World" "\n")
; in lime
(print 'Hello 'World '\n)
(puts "Hello world")

; travel through a range
(for-each i (.. 1 10) (print i "\n"))
; in lime
('(.. 1 10).each' (do (i)
  (puts i)))

; define a call-by-name function
(defexpr fold ls init op
 (for-each index-var ls
   (-> init (op init index-var))))
; in lime
(def fold (ls init op)
  (ls.each (do (index-var)
    ([]= LENV init (op init index-var)))))
; 你可能很好奇 def 里面的 init op 什么的是哪里来的，因为 Lime 没有作用域
; 在填充宏参数的时候他们会被内联到每个非 (# ...) (就是宏内部的宏，那应该在展开时填充) 里的引用中去
; 某次改正了一个东西

; invoke the function defined above
(fold (.. 1 4) 0 +)
; in lime
(fold ("  a b c) 0 r)

; passing a call-by-value lambda to a call-by-value lambda
((lambda op (op 3 4)) (lambda a b (+ (* a a) (* b b))))

; to define a call-by-need lambda, use `lazy`.

~> let
= equal
extern extern
extern-query extern query
## object-id

self
args
LSTACK
$^

(def puts-in-stream (stream data)
  (stream.puts data))

(class A
  (attr simple)
  (initialize
    (self.simple= 'sss))
  (def puts_sss
    (@ self.simple)))
(-> a_obj A.new)
(a_obj.puts_sss) ;-> nil

#t true
#f false
#n nil
#g 1
#e 0
#l -1
#h Hash
#i List