(defn main [] i32
  (let [n 40                       ; i32, inferred
        big (i64 n)                ; every widening is written
        x 1.5]                     ; f64
    (print-i64 (+ big 2)) (newline)
    (print-f64 (* x 2.5)) (newline)
    (print-i64 (i64 (bit-xor (<< 1 8) 255))) (newline)
    0))