-
Notifications
You must be signed in to change notification settings - Fork 40
/
hello.mmu
39 lines (34 loc) · 1.05 KB
/
hello.mmu
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
39
(sort hex strict free)
(term x0 () (hex ()))
(term x1 () (hex ()))
(term x2 () (hex ()))
(term x3 () (hex ()))
(term x4 () (hex ()))
(term x5 () (hex ()))
(term x6 () (hex ()))
(term x7 () (hex ()))
(term x8 () (hex ()))
(term x9 () (hex ()))
(term xa () (hex ()))
(term xb () (hex ()))
(term xc () (hex ()))
(term xd () (hex ()))
(term xe () (hex ()))
(term xf () (hex ()))
(sort char strict free)
(term ch ((_ hex ()) (_ hex ())) (char ()))
(sort string strict free)
(term s0 () (string ()))
(term s1 ((_ char ())) (string ()))
(term sadd ((_ string ()) (_ string ())) (string ()))
(def nl () (string ()) () (s1 (ch (x0) (xa))))
(def __ () (string ()) () (s1 (ch (x2) (x0))))
(def bang () (string ()) () (s1 (ch (x2) (x1))))
(def _H () (string ()) () (s1 (ch (x4) (x8))))
(def _W () (string ()) () (s1 (ch (x5) (x7))))
(def _d () (string ()) () (s1 (ch (x6) (x4))))
(def _e () (string ()) () (s1 (ch (x6) (x5))))
(def _l () (string ()) () (s1 (ch (x6) (xc))))
(def _o () (string ()) () (s1 (ch (x6) (xf))))
(def _r () (string ()) () (s1 (ch (x7) (x2))))
(output string)