lambda_mountain 1.12.9

Lambda Mountain
Documentation 
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


import STDLIB/default-instruction-set.lm;
import STDLIB/default-primitives.lm;
import STDLIB/default-rules.lm;
import STDLIB/default-stdlib.lm;

main := λ(: argc U64)(: argv U8[][]).(tail(
   (let x (SCons(
      (close SNil)
      (close (SAtom( 'A_s )))
   )))
   (match x (
      ()
      ( (SCons( SNil (SAtom a) )) (print a) )
      ( (SCons( SNil (SAtom a) )) (print a) )
      ( (SCons( SNil (SAtom a) )) (print a) )
      ( (SCons( SNil (SAtom a) )) (print a) )
#      ( (SCons( SNil (SAtom a) )) (print a) )
#      ( (SCons( SNil (SAtom a) )) (print a) )
#      ( (SCons( SNil (SAtom a) )) (print a) )
#      ( (SCons( SNil (SAtom a) )) (print a) )
#      ( (SCons( SNil (SAtom a) )) (print a) )
#      ( (SCons( SNil (SAtom a) )) (print a) )
   ))
));