even?

Summary

Predicate that returns #t if a is even

Bytecode

Probably only interesting to you if you want to understand more about the Nujel VM or care very much about performance.

(    0 ($get/val 'mod/int))
(    2 ($get/val 'int))
(    4 ($get/val 'a))
(    6 ($apply 1))
(    8 ($push/int/byte 2))
(   10 ($apply 2))
(   12 ($push/int/byte 0))
(   14 ($=))
(   15 ($ret))