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