(import scheme
        (chicken base)
        (chicken fixnum)
        (chicken type))

(: ->u32 (fixnum -> fixnum))
(define (->u32 n)
  (fxand #e#xFFFFFFFF n))

(print (->u32 123))

;; csc -fixnum-arithmetic -o main main.scm
;; Error: cannot coerce inexact literal `4294967295' to fixnum