;; In Emacs, open this file in -*- Scheme -*- mode

;; Test the @< primitive

(@byte-write 71)

(@byte-write (if (@< -1073741824 1073741823) 65 63)) ;A
(@byte-write (if (@< 1073741823 -1073741824) 63 66)) ;B
(@byte-write (if (@< 0 1) 67 63))                    ;C
(@byte-write (if (@< 1 0) 63 68))                    ;D
(@byte-write (if (@< 2018 2018) 63 69))              ;E
(@byte-write (if (@< 2017 2018) 70 63))              ;F
(@byte-write (if (@< -2018 -2017) 71 63))            ;G