input/program.lux


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

(;import lux
         (lux (control monoid
                       functor
                       monad
                       lazy
                       comonad)
              (data eq
                    bounded
                    ord
                    io
                    list
                    state
                    number
                    (text #as t)
                    dict
                    show)
              (codata (stream #refer (#except iterate)))
              (meta lux
                    macro
                    syntax)))

(_jvm_program args
  (case args
    #;Nil
    (println "Hello, world!")
    
    (#;Cons [name _])
    (println ($ text:++ "Hello, " name "!"))))