(print "------------------------------------------------")
(print "Testing infix ops: // % <= >= in")
(print)
(print "These should all print #t...")

(print ((17 // 5) == 3))
(print ((17 % 5) == 2))
(print ((5 <= 5) == True))
(print ((4 <= 5) == True))
(print ((5 >= 5) == True))
(print ((5 >= 4) == True))
(print ((17 in 5) == False))
(print ((2 in 2) == False))
(print ((2 in (2 + 3)) == False))
(print ((2 in (cons 1 (cons 2 (cons 3 nil)))) == True))
(print (((2 + 2) in (list a b c d)) == True))