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
40
41
42
43
44
45
46
47
48

#[macro_export]
macro_rules! lift {
    ($x:expr) => {{
        |vm| (vm, $x)
    }};
}

#[macro_export]
macro_rules! nbr {
    ($x:expr) => {{
        |vm| nbr(vm, $x)
    }};
}

#[macro_export]
macro_rules! rep {
    ($init:expr, $fun:expr) => {{
        |vm| rep(vm, $init, $fun)
    }};
}

#[macro_export]
macro_rules! foldhood {
    ($init:expr, $aggr:expr, $expr:expr) => {{
        |vm| foldhood(vm, $init, $aggr, $expr)
    }};
}

#[macro_export]
macro_rules! foldhood_plus {
    ($init:expr, $aggr:expr, $expr:expr) => {{
        |vm| foldhood_plus(vm, $init, $aggr, $expr)
    }};
}

#[macro_export]
macro_rules! mux {
    ($cond:expr, $th:expr, $el:expr) => {{
        |vm| mux(vm, $cond, $th, $el)
    }};
}

#[macro_export]
macro_rules! mid {
    () => {{
        |vm| mid(vm)
    }};
}