(
    (call slash 1)
    (cmp res0 1 (ne? (fault)))

    (call named 2)
    (cmp res0 2 (ne? (fault)))

    (call both 3)
    (cmp res0 3 (ne? (fault)))

    (call slash 1 2)
    (cmp res0 1 (ne? (fault)))
    (cmp res1 2 (ne? (fault)))

    (call named 2 3)
    (cmp res0 2 (ne? (fault)))
    (cmp res1 3 (ne? (fault)))

    (call both 3 4)
    (cmp res0 3 (ne? (fault)))
    (cmp res1 4 (ne? (fault)))

    (halt)

    (proc slash/1
        (ret arg0)
    )

    (proc slash/2
        (ret arg0 arg1)
    )

    (proc named a
        (ret a)
    )

    (proc named a b
        (ret a b)
    )

    (proc both/1 a
        (ret a)
    )

    (proc both/2 a b
        (ret a b)
    )
)