(module le_at_str_smoke
  (fn main
    (type (fn-type (params) (ret (own (con Unit))) (effects IO)))
    (params)
    (body (app print (if (app le "abc" "abd") 1 0)))))