fun doSubmit r =
return Done {[readError r.Amount1 * readError r.Amount2 * 2.0]}
fun main () =
amount1S <- source "1";
amount2S <- source "1";
return
and showTotal amount1S amount2S =
a1 <- signal amount1S;
a2 <- signal amount2S;
return (case ((read a1), (read a2)) of
(None, _) =>
| (_, None) =>
| (Some a, Some b) => {[a * b * 2.0]})