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
29
30
31
32
33
34
35
36
37
38

(;import lux
         (lux (codata (stream #as S))
              (control monoid
                       functor
                       monad
                       lazy
                       comonad)
              (data bounded
                    ## cont
                    dict
                    (either #as e)
                    eq
                    error
                    id
                    io
                    list
                    maybe
                    number
                    ord
                    (reader #as r)
                    show
                    state
                    (text #as t)
                    writer)
              (host java)
              (meta lux
                    macro
                    syntax)
              math
              ))

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