(module embed_export_float_ok
  (fn scale
    (export "embed_scale")
    (type
      (fn-type
        (params (own (con Float)) (own (con Float)))
        (ret (own (con Float)))))
    (params a b)
    (body
      (app * a b))))