(module gt_at_bool_smoke
  (fn main
    (type (fn-type (params) (ret (con Unit)) (effects IO)))
    (params)
    (body (do io/print_int (if (app gt true false) 1 0)))))