(module eq_primitives_smoke
  (fn to_int
    (doc "1 if the bool is true, 0 otherwise. Used to render Eq results as printable Ints.")
    (type (fn-type (params (con Bool)) (ret (con Int))))
    (params b)
    (body (if b 1 0)))
  (fn main
    (type (fn-type (params) (ret (con Unit)) (effects IO)))
    (params)
    (body (seq (app print (app to_int (app eq 7 7))) (seq (app print (app to_int (app eq 7 8))) (seq (app print (app to_int (app eq true true))) (seq (app print (app to_int (app eq true false))) (seq (app print (app to_int (app eq "hello" "hello"))) (app print (app to_int (app eq "hello" "world")))))))))))