;;; Load to add fx operations to scheme session

(define fx< <)
(define fx<= <=)
(define fx> >)
(define fx>= >=)
(define fx= =)
(define fx+ +)
(define fx- -)
(define fx* *)
(define fxero? zero?)
(define fxadd1 add1)
(define fxsub1 sub1)
(define fxremainder modulo)
(define fx+<<4
  (lambda (n1 n2)
    (+ (* 4 n1) n2)))